(AJUDA) Conectando ao IRC

[Densyy]

Ola pessoal , começei com o Perl a pouco tempo

gostaria de conectar-me ao irc

Dei uma olhada em milhoes de tutoriais , mas nenhum funcionou

criei um exemplo simples aqui , pra mostrar onde PAREI

#!/usr/bin/perl
use IO::Socket;

$server = "irc.exemplo.org";
$nick = "|bot|";
$canal = "#canal";

$conectar = IO::Socket::INET->new(PeerAddr=> $server, PeerPort=> "6667", Photo=> "tcp") or die "ERRO\n";
print $conectar "USER $nick\n";
print $conectar "NICK $nick\n";
print $conectar "JOIN $canal\n";

Gostaria de saber o q esta errado e como posso concertar

Aguardo respostas

[Jhonas]

não sei se voce gosta de ler, mas veja

http://luizjrcfox.sites.uol.com.br/irc1.htm

exemplo funcional em perl

http://www.forum-invaders.com.br/vb/showth...poca-do-spykids

=======================================================

O erro esta na criação da conexão

$sock = IO::Socket::INET->new(PeerAddr =>$server, PeerPort =>$port, Proto => 'tcp');

Uma simples conexão Perl IRC Client

o exemplo abaixo tambem funciona

http://oreilly.com/pub/h/1964#code

abraço

[Densyy]

esse ultimo link http://oreilly.com/pub/h/1964#code

Funcionou aqui

Obrigado pelo link , vou estuda-lo aqi

[EDULOCO]

Densyy o seu erro está sendo na criação da conexão

você está usando Photo em vez de Proto :x

$conectar = IO::Socket::INET->new(PeerAddr=> $server, PeerPort=> "6667", Photo=> "tcp") or die "ERRO\n";