Re: [PUG] sockets unter perl

[Chris Ruehl]

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