[IO::Socket] Größe einer Nachricht - #148430 (Netzwerkprogrammierung und Netzwerke mit Perl)

rosti

2011-05-10 19:33

User since
2011-03-19
3199 Artikel
BenutzerIn

Hi,
stat liefert "was" und danach kann das Handle gelesen werden, Beispiel:

Code (perl): (dl )

use strict;
use IO::Socket;


my $socket = new IO::Socket::INET (
        PeerAddr => 'ptbtime1.ptb.de',
        PeerPort => 37,
        Proto    => 'tcp'
) or die "Kein Socket bekommen!";

my @stat = stat($socket);
print join "\n", @stat;

read ($socket, my $buffer, 4);
print unpack "N", $buffer; # seconds since 1.1.1900

Allerdings ist [7] auf 0. Guck Du mal bitte, ob [7] in Deinem Fall was liefert.

Was Du auf den "Server" machen könntest (falls möglich): Einen "Header" senden, z.B. 4 Byte mit der Längenangabe. Das läuft dann so ab: 4 Byte lesen zum Ermitteln der Länge. Danach kann mit read() das komplette Socket gelesen werden, oder es wird halt gepuffert.

--Rosti