Auf Port 514 lauschen: Ein Anfänger auf Holzwegen... - #37131 (Netzwerkprogrammierung und Netzwerke mit Perl)

smallish

2006-02-21 20:42

User since
2005-10-13
28 Artikel
BenutzerIn
[default_avatar]

Danke, habs jetzt so versucht:

Code: (dl )

use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET -> new(        LocalPort => 514,
                                             Type => SOCK_STREAM,
                                             Proto => 'udp')
or die "Keine Verbindung: $!\n";

my $hello;
until (defined $hello) {
  $hello = <$socket>
}

print $hello;

close($socket);

Output:

Code: (dl )

Keine Verbindung:

funktioniert troztdem nicht...\n\n