IRC: Ping\Pong Event (Allgemeines zu Perl)

[thread]8573[/thread]

IRC: Ping\Pong Event

Gast Gast

2006-12-11 21:51

Hi,

Kurz und knapp, der IRC Server sendet mir immer:

Code: (dl )

PING :<random_numbers>

und ich muss:

Code: (dl )

PONG :<random_numbers>

zurück senden, leider habe ich keine Ahnung wie ich die Zahlen "abfangen" soll damit ich sie zurück schicken kann, kann mir jemand weiterhelfen? Wenns geht eine möglichst einfache Lösung (Ohne Regex bitte), und wenns nicht allzuviel umstände bereitet auskommentieren (Wäre nett, muss aber nicht sein).

Hier der komplette Code:

Code: (dl )

use IO::Socket;

$sock = IO::Socket::INET->new(
Proto     => "tcp",
PeerAddr  => $ARGV[0],
PeerPort  => $ARGV[1],
);
unless ($sock) { die "Cannot connect to $ARGV[0] $ARGV[1]" }

$sock->autoflush(1);

print $sock "USER test 0 0 test\n";
print $sock "NICK tesaflabla\n";

while ( <$sock> ) {
    print "$_";
}