ausgabe von telnet speichern: und bei einem anderen befehl verwenden - #38013 (Netzwerkprogrammierung und Netzwerke mit Perl)

snarf

2004-08-19 12:07

User since
2003-08-14
77 Artikel
BenutzerIn
[default_avatar]

... strange : Socket-Programmierung vor den eigentlichen Perl-Basics ???

(ungetesteter code)

Code: (dl )

$sock->recv($text,128)

my @lines = split /\n/, $text;
while ($lines[0] !~ /^p_id/) 
    { shift(@lines) }

my $p_id = (split /\s+/, $lines[1])[0];

print $sock "kick $p_id\n";

Hope2Help, Dirk

Edit: So, mal eben noch nachgetragen ...\n\n