Opened by Gast at 2006-12-11 21:51
Hi,
Kurz und knapp, der IRC Server sendet mir immer:
und ich muss:
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:
Danke im Vorraus!
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
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 "$_";
}
Danke im Vorraus!