Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

NET::IRC Don't hit me, I'm fragile

by £okì (Scribe)
on Jul 01, 2004 at 01:55 UTC ( [id://370955]=perlquestion: print w/replies, xml ) Need Help??

£okì has asked for the wisdom of the Perl Monks concerning the following question:

I'm looking for all of the possible information I can get on Net::IRC. Cpan's info on it's basically a waste of time. What I think I really need is to know what comes in when I get a msg.
sub on_msg { my ($conn, $event) = @_;
Ok, so, I can have $event->{nick} and $event->{args} but what else. How do I find out what I can play with? There doesn't seem to be a whole lot of info out there on this kind of thing.

Replies are listed 'Best First'.
use the source luke
by PodMaster (Abbot) on Jul 01, 2004 at 02:37 UTC
    There's a saying, use the source luke, so here's a quote from the source
    # Constructor method for Net::IRC::Event objects. # Takes at least 4 args: the type of event # the person or server that initiated the even +t # the recipient(s) of the event, as arrayref o +r scalar # the name of the format string for the event # (optional) any number of arguments provided by the even +t sub new { my $class = shift; # -- #perl was here! -- # \mjd: Under the spreading foreach loop, the lexical variable s +tands. # \mjd: The my is a mighty keyword, with abcessed anal glands. # \mjd: Apologies to Mr. Longfellow. my $self = { 'type' => $_[0], 'from' => $_[1], 'to' => ref($_[2]) eq 'ARRAY' ? $_[2] : [ $_[2] ], 'format' => $_[3], 'args' => [ @_[4..$#_] ], }; bless $self, $class; if ($self->{'type'} !~ /\D/) { $self->{'type'} = $self->trans($self->{'type'}); } else { $self->{'type'} = lc $self->{'type'}; } # ChipDude: "Beware the method call, my son! The subs that grab, + the # args that shift!" # \mjd: That's pretty good. $self->from($self->{'from'}); # sets nick, user, and host $self->args(@{$self->{'args'}}); # strips colons from args return $self; } *snip* # Dumps the contents of an event to STDERR so you can see what's insid +e. # Takes no args. sub dump {
    Question: heard of Data::Dumper?

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

      Yea, good point podmaster, I supposed that's all I had to do. Someone else mentioned something to me about listkeys. I'll be looking into that too.
Re: NET::IRC Don't hit me, I'm fragile
by pbeckingham (Parson) on Jul 01, 2004 at 02:00 UTC

    I see documentation for Net::IRC, and the three other classes that accompany it. Did you try anything? Got any code to share here? Have you tried anything?

    Can you not just poll, and simulate your desired interface?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://370955]
Approved by arden
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (5)
As of 2024-03-28 16:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found