Socket-Schnittstelle bei Perl III

client2.pl

#!/usr/local/bin/perl -w use IO::Socket; use strict; 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.

	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.