| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
Comments:
<0> hrm
<1> mirror mirror of the Wall, who is the currentist of them all?
<2> cpansearch has it, that's all I know :)
<3> and 5.8.8 is on it aswell. (since yesterday)
<4> Ani-_: that's not the one I mean :)
<3> http://search.cpan.org/~nwclark/perl-5.8.8/
<4> okay, I can topic it then.
<5> topic me
<5> excellent
<0> No you didn't
<6> hobbs: Well, same thing.
<1> heh
<1> hazard had a better solution
<0> Holy crap, there's a channel with perl in the name I'm not a member of!
<3> (Both the Europe's cpansearch and US's cpansearch has it.)
<7> kitchen: I just have a fascination with bludgeoning.
<7> buu: How many seconds was that statement true?
<5> chonky
<0> hazard: Well, I /who'd and there's like 3 people there
<7> buu: I made a perl channel on another server, and there hasn't been anybody but me in it for months. :P
<3> buu, /who is a bit irrelevant... /who (and /names) only shows the visible user. Freenode sets the invisible flag by default.
<0> hazard: Tragedy.
<0> Ani-_: You know, you're right
<7> buu: Not to worry, it's a canadian server anyway. ;-)
<0> Yay canadians!
<7> s/ca/Ca/
<3> Ofcourse I know that I'm right.
<8> Hi, can anyone show me how I would call and declare a variable using another cl***?
<8> http://sial.org/pbot/15696
<8> my($server) = c_server->init("208.146.35.105",6667,"veLvet");
<8> Is that right?
<9> yes
<2> VT`: looks alright. Does it work? :)
<8> doesnt give any errors
<8> but I have a question of declaring a varible like this
<8> $server->isupport["ANNOUNCE"]="";
<4> "other countries that *appear* to be friendly, like Canada..." [emphasis mine]
<10> "($host)=(get("www.whatismyip.com")=~/<title>(.+)<\/title/)"; line returns this: "Undefined subroutine &main::get called at ServerChecker.pl line 17.
<10> "
<10> help
<9> VT`: add_user is wrong
<9> Jrex-Linux: use LWP::Simple;
<9> VT`: the push happens for every iteration of the foreach, which is probably not WYM
<10> "LWP::Simple; get("www.whatismyip.com")=~/<title>(.+)</title>/;" like that?
<8> WYM?
<9> what you mean
<9> Jrex-Linux: ...
<10> ?
<10> What?
<8> what would I need to do?
<9> perl -le 'use LWP::Simple;print+ get("www.whatismyip.com")=~/<title>(.+)</title>/;'
<2> u. s. e. space. L. W. P. colon. colon. S. i. m. p. l. e.
<0> VT`: Hashes in perl use curly brackets.
<8> and arrays?
<9> VT`: also, take a look at perl.
<9> err
<9> grep
<9> it filters a list according to some criteria
<9> so eg find_irc_op could be rewritten as
<0> VT`: Arrays use square brackets.
<9> return grep $_->irc_op, @{ $self->{users} };
<10> perl -le 'use LWP::Simple; ($host) = get("www.whatismyip.com")=~/<title>(.+)</title>/;' will that work?
<10> and what does perl -le do?
<11> it shows.
<10> ah ok
<2> Jrex-Linux: YOU TELL US IF IT ****ING WORKS. You can run perl as well as we can, and without bothering the channel.
<12> perl -leet
<10> gosh, sorry
<13> YAB
<13> Yet another Beer!
<8> Botje, dont you mean return grep $e->irc_op, @{ $self->{users} };
<8> ?
<9> VT`: no
<8> why $_?
<9> in the block following the grep,
<9> the element in @{$self->{users}} is aliased to $_
<4> because grep doesn't just allow you to make up variables?
<9> which is what makes it so powerful
<4> grep doesn't magically figure out that it's $a and not $b in grep $a == $b, @_ that it should stick it's variable in.
<9> it saves you the trouble of walking through the array and pushing stuff
<0> IT WILL IN PERL6
<0> Bitches!
<4> no, in perl6 that would die with a "ENOTABLOCK"
<0> You have a point =[
<4> well, sorry, I'm ***uming that perl6 will ever ship.
<0> ?eval grep $_, {}
<0> ****er
<14> ETOOMANYLETTERS
<4> ... like *that* bot
<4> ?part
<0> ?part #perl
<4> ?part #perl
<0> GET THE **** OUT BITCH
<0> I can't get the evalbot to join
<15> Hey buu, sorry bout that I walked infront of the tv last night and got lost in the flasy images.
<16> Geeze could you keep your pathetic little hairy *** in here or leave
<16> I'm getting all sorts of sounds
<16> Crapface
<0> high-rez: Oh, I wondered
<16> </vent>
<8> http://sial.org/pbot/15697
<8> Botje, thats all I need to do?
<9> VT`: yes :)
<15> Then at some point I decided to look at all the servers I have boxed up in my garage. ;) Pretty amazing stuff.
<10> http://sial.org/pbot/15698
<0> high-rez: Stop taunting me =[
<8> I didnt get a clear idea
<10> bad errors
<8> but thanks a lot
<9> VT`: perldoc -f grep, that helped for me
<15> buu: Hey now, you're always welcome to a shell ;)
<0> Yay!
<9> VT`: also, you might want to make a users method that returns the list of users
<8> Botje, how would I declare a variable like this for c_server
<8> this is the php way
<9> so you don't have to dereference it averytime
<8> $server->isupport["ANNOUNCE"]="";
<10> Anyone know why it gives this error: http://sial.org/pbot/15698 ?
<9> Jrex-Linux: because you chopped off the "use"
<0> VT`: THAT'S NOT PERL.
<9> as i told you to.
<9> *NOT to
<0> Botje: You told him to chope!?
<10> use gives a bigger error
<9> wtf
<9> "use gives a bigger error"
<13> hehe
<9> "the error is smaller so it's better" ?
<9> Jrex-Linux: install libwww_perl, plzkthx.
<14> Botje: Yes.
<13> your regex may be terminated too early :)
<17> Jrex-Linux: you also have an escaping problem in your regex.
<18> welcome to the wonderful world of Java dumps/
<0> perlbot beginning perl > Jrex-Linux
<9> VT`: what is "isupport" supposed to be?
<14> My 3 year old cousin had a "Smaller" error in his bed last week, thankfully, we didn't have to change the bedsheets.
<19> hrm...
<9> i'm thinking it should be a hash
<8> I declared in bless, its supposed to be an hash
<10> http://sial.org/pbot/15699
<9> isupport => '',
<19> I'm getting an error I don't agree with
<19> Can't load '/root/.cpan/build/DBD-Sybase-1.07/blib/arch/auto/DBD/Sybase/Sybase.so' for module DBD::Sybase: libct.so.3: cannot open shared object file: No such file or directory
<9> so why did you define it as a string? :)
<9> {}
<10> regex?
<9> instead of ''
<19> but libct.so.3 is in the same directory as the other libraries
Return to
#perl
or
Go to some related
logs:
#web
ralink 2500 .deb
RANLINE
#centos
maple10 debian
ubuntu setterm
haloed are the ori
inline event registration model
#css
#perl
|
|