aiuto lettura dati su socket

[les]

ciao a tutti
di solito non scrivo perchè provo ad arrangiarmi, ma di questa cosa nn c'è ne vengo fuori, non sono esperto di Perl.

io ho un server che mette a disposizione dei dati presi da un file di log su una porta, e questo funzia correttamente.

Ora devo fare uno script che da un'altro host, vada a leggere quei dati sulla porta e li riscriva su un altro file.

Quindi ho aperto il mio socket

my $sock = IO::Socket::INET->new('localhost:5005')
or die "can't connect to port 5005 on localhost: $!";


while (<$sock>) {

non capisco come fare a leggere i dati della socket, se faccio un print "$sock" mi esce un IO::Socket::INET=GLOB(xxxx);

}

ci sarà un read o cose del genere, ma non trovo niente...

[Gaetano Vituzzi]

con che protocollo comunichi con questo server?

il codice che segue è un idea di come dovresti fare:

#!/perl
#
# Client

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

my $socket = IO::Socket::INET->new(PeerAddr => 'localhost',
		                           PeerPort => '5005',
		                           Proto    => 'tcp') || die "$!\n";

$socket->autoflush(1);

print $socket "<dammi i dati>\r\n"; # richiesta

my $answer = <$socket>; #risposta

close($socket);

naturalmente <dammi i dati> me lo sono inventato, ma hai capito a cosa servirebbe?