|
#!/usr/local/bin/perl use strict; use warnings; use IO::Socket; my $hostname = shift @ARGV; my $socket = new IO::Socket::INET ( PeerAddr => $hostname, PeerPort => 11011, Type => SOCK_STREAM, ); die "Unable to open connection: $!\n" unless defined $socket; print while(<$socket>); |
Im Gegensatz zur Version in C entfällt hier die
Notwendigkeit, einen Rechnernamen in eine IP-Adresse
zu konvertieren.
| |
Im übrigen werden die Systemaufrufe socket(2)
und connect(2) beide von dem Konstruktor übernommen.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |