Christian Stalp wrote:
Mann das kann doch nicht wahr sein!!!
Ich versuche gerade eine einfache Socket-Verbindung unter Perl zum laufen zu
bringen. Ich habe das Programm Stück für Stück vereinfacht aber es klappt
immer noch nicht.
Also der Server öffnet ein Socket und lauscht dann:
#!/usr/bin/perl
use IO::Socket;
use strict;
my $server_port = 3434;
my $server;
my $client;
my $in_line;
$server = IO::Socket::INET-> new ( LocalPort => $server_port,
Proto => 'TCP',
Reuse => 1,
Listen => 1 )
or die "Kann keinen TCP-Server starten ! [EMAIL PROTECTED]";
$client = $server->accept ();
$input = <$client>;
while ( $input ) {
print $_;
}
while ( defined ( <$client> ) )
{
print $_;
}
close ( $server );
__END_
Der Client öffnet diesen Socket zum schreiben und schickt dem Server einfach
nur einen String.
#!/usr/bin/perl
use IO::Socket;
use strict;
my $remote_host = "localhost";
my $remote_port = 3434;
my $socket;
my $data = "test";
my $flags;
$socket = IO::Socket::INET->new ( PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp" )
or die "kann keine Verbindung herstellen!\n";
$socket-> send ( $data ) or die "konnte nicht senden!\n";
#print $socket "Hallo\n";
close ( $socket );
__END_
Die beiden Scripte laufen durch, aber der Server gibt nur ein phlegmatisches
"IO::Socket::INET=GLOB(0x8163af0)" aus.... :-(
Gruss Christian
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org