| |
| |
| |
|
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 29
Comments:
<0> Hi. It's been a long while since I used perl, and I'm wondering what then meaning of -name is on this page: http://search.cpan.org/~rsoliv/Apache-Admin-Config-0.94/lib/Apache/Admin/Config.pm Is -name a valid identifier, and does the '-' have special meaning?
<1> noodl's url is at http://xrl.us/nutt
<0> Thanks shorten :)
<2> ah! I found exactly what I was looking for: @sorted = sort { $hash{$a} cmp $hash{$b} } keys %hash;foreach $key (@sorted){print $hash{$key};}
<3> Tomatoe - pointed out to you about an hour ago
<2> oh sorry, I did not see
<4> Hello everying, I am working on a poe irc bot and have a problem. The bot prints "Use of uninitialized value in split at /usr/share/perl5/POE/Component/IRC.pm line 503." to the console. It joins a server but does not join a chan.. Would someone please take a look at my code and tell me why? Thanks
<5> "Gokee2" at 24.113.12.97 pasted "Poe irc bot code" (88 lines, 2.1K) at http://sial.org/pbot/18162
<3> a bot!
<3> amazing!
<3> "welcome to freenode. here's your bot."
<4> Eh?
<6> IRC bots are a rite of p***age
<7> along with templates
<3> and CGI parsing things
<4> Irc bots are why I started programing in perl
<3> yeah - we know
<3> not *useful* things. bots. :(
<8> irc bots are *lame*, and unnecessary in these enlightened times of centralised government.
<3> irc bots guarantee network neutrality!
<8> 5 year plans are much easier to implement with services than with botnets
<3> free the btos!
<3> free the bots too!
<3> free the dyslexic bots!
<8> I know, let's start a network with freedom! Let's call it FreeNode!
<3> "bots want to be free"
<3> -- RMS
<4> merlyn, I have programed some usefull things too... Like photopage http://www.skagitattic.com/perl/photo%20page/ :)
<9> Bots are too much fun.
<9> I can't stand it.
<3> more fun than is humanly possible!
<4> So does anyone know whats wrong with my bot?
<3> I need a coding monkey bot
<9> Exactly. Which is okay, because I wrote bots to have the extra fun so I don't explod.
<6> Gokee2, i'd start by figuring out what line 503 is doing in PoCo::IRC
<3> I agree with hawkaloogie
<3> although I dislike saying his nick
<3> it's a good thing I'm merely typing it
<9> Gokee2: What hawkaloogie and merlyn said. Perl modules aren't black boxes. You can peek inside and see what they do.
<3> peek!
<3> stop that. :)
<3> it might be a bug IN THERE
<3> you need to peer in
<3> but don't pee in
<4> 503 is "$self->{RealNick} = ( split / /, $ev->{raw_line} )[2];"
<3> BiNgOs isn't necessarily flawless
<3> Hmm. the rawline doesn't contain multiple words then
<10> BinGOs is perfection personified.
<3> BinGOs is merely a bot breeding smarter bots. :)
<4> So.... Why does it not? and how do I make it?
<3> those are very good questions
<11> /s/asd
<11> d
<3> hey - I'm just a dude
<3> not a psycic
<3> merely a psychotic. :)
<12> YAY PSYCHOTIC!
<3> can you call PoCo::IRC->spawn with no parameters?
<3> I thought you had to at least give it the host to connect
<13> merlyn, will i win the lotto?
<4> PoCo?
<3> you will win perhaps!
<9> Gokee2: Once you find the cause of the problem on line 503, then trace backwards. Find out whi $ev->{raw_line} is not defined.
<3> ... my ($poe_hash) = POE::Component::IRC->spawn();
<3> where do you say the server name?
<4> Er...
<3> yeah - that's a big problem
<3> you're not connecting anywhere useful
<4> Server => "192.168.0.47"?
<4> I am connecting to my server
<3> where? I dont' see it there.
<4> in startup
<4> I have the line "my %server = (Nick => "Other_bot", Username => "Poe bot! HAHA!", Ircname => "Gokee2 is cool", Server => "192.168.0.47", Port => "6667");"
<10> HELLO
<3> Uh - that's not how it works
<4> Then I p*** that to sub join_server{
<3> your _startup is *your* session, not ->spawn
<0> It looks like -name is being used as a hask key only. I wasn't aware of this syntax.. Does it have a name so I can go rtfm?
<3> keep in mind that Poco-irc works by having its own session
<0> hash, sorry.
<3> both +foo and -foo are considered variants of foo with respect to =>
<2> I am trying to sort in reverse alphabetical, but this is not working: @sorted = sort { $hash{$b} cmp $hash{$a} } keys %hash;
<4> merlyn, I make a sesion with POE::Session->create(?
<3> this was originally so that Tk.pm was happy
<2> is that code correct?
<3> I don't recall the doc that permits that
<2> oh no!
<3> Gokee2 - pay attention
<3> ->spawn() wants some connect parameters
<4> OOoooo
<3> because it wants to have the poco-irc session *connect*
<3> then *you* create a session
<3> to talk to poco-irc's virtual client
<4> But in the sample bot it did not have any?
<3> think of the poco-irc session as your "irc window"
<3> what sample bot?
<3> I'm looking at poco-irc docs
<4> one sec I will find it
<0> Um, variants? -name and +name are both ways to describe a key rather than using quotes, or is like ruby's symbol thing?
<2> it is not possible to reverse sort hash values?
<3> +foo => $bar is legal under use strict
<3> as is -foo => $bar
<2> wait, I know
<3> as is foo => $bar
<4> merlyn, http://poe.perl.org/?POE_Cookbook/IRC_Bots
<3> but they come through as "+foo" etc
<0> Oh, I see. Are those three equivalent, or are -name and +name allowed as hash keys at the same time?
<3> ahh - it says "all args are optional"
<3> odd
<3> ahh - and you're calling ->yield(connect)
<4> I need to go, I will be back in a while
<3> I would think you want to ->post(connect though
<4> post?
<3> anyway... I need to go get in line for my flight home
<4> but it calls yield as well?
<3> happy ***istance, folks.
<4> Ok thanks for your help
<3> & enroute CVG to PDX thence home
<8> torchwood
<14> ps -ef
<14> uh
<8> P***word:
<10> ksdf3JSa1
<10> Oh crap!
<8> hgj ujkjk mmmnjkn bch.
<14> heh
<15> How do I accept/interpret a variable from POST ? like .. if I have a form that says like <input id=blah> .. then they click the submit button.. I wan't it to display whatever they typed...
<12> Yaakov: HEY! that's _MY_ p***word! give it back!
<8> hyuj wrufg tugh wefguk?
<8> Coolguy: are you using the CGI module?
<15> integral, yes w/ params.. index.pl posts to display.pl currently.. not sure how to make it work in display.pl
<8> $q->param("blah")
<8> works for me.
<8> LEAK AND TOE SOUP
<15> oh.
<15> Do I have to do like $q->new cgi.. ?
<8> err, how else do you expect to use CGI.pm?
<15> like..
<14> use CGI; my $q = new CGI; my $param = $q->param("blah");
<15> $blah = param('blah'); ?
<15> can't you do that also?
<8> sure, but that's lame.
<15> hmm
<16> lame
<16> like being called LoliDesu?
Return to
#perl
or
Go to some related
logs:
tl-wn320g linux
mount cifs cannot create files
#lgp
xhr trace firebug
#math
marvell gigabit genkernel
#linux
#freedesktop
#math
#nvidia
|
|