Need a PERL irc socket connection

I'm looking to create an IRC bot in PERL. And I know nothing about socket programming with PERL.

Would someone please give me a small, commented example script of connecting to an IRC server as well as sending and reciving data?

Thank you very much,
King Elessar

[xtothez]

I dont do much perl myself, but I can sort out a php bot to do the same job if thats any use to you.

[queball]

POE::Component::IRC is the best way to do Perl IRC bots, see http://poe.perl.org/?POE_Cookbook/IRC_Bots

If you really must use TCP sockets, google gives http://b0iler.eyeonsecurity.org/tuto...ircperlbot.htm

Originally posted by xtothez
I dont do much perl myself, but I can sort out a php bot to do the same job if thats any use to you.

No thanks, I'd like to mostly do this myself

King Elessar

[xtothez]

Originally posted by King Elessar
No thanks, I'd like to mostly do this myself

King Elessar

I meant a client with the description you provided, I'm not writing a full bot for you : )

Originally posted by xtothez
I meant a client with the description you provided, I'm not writing a full bot for you : )

I see... Well, again, thanks anyway, I've done that before, but I don't really know enough PHP to do all the stuff I want to do :P

King Elessar

[MT]

Not IRC, but an example fo how to use sockets in perl..

#!/usr/bin/perl
use IO::Socket;
$data = "GET / HTTP/1.0\r\n\r\n";
my $sock = new IO::Socket::INET (
                  PeerAddr => 'www.planetarion.com',
                  PeerPort => '80',
                  Proto => 'tcp',
            );
die "Could not create socket: $!\n" unless $sock;
print $sock "$data";
while (<$sock>) {
  print;
}
close($sock);

[Slidey]

Originally posted by King Elessar
I see... Well, again, thanks anyway, I've done that before, but I don't really know enough PHP to do all the stuff I want to do :P

King Elessar

so you know all the perl you need to know to do all you want to do..?