TCP Client - Socket lesen und schliessen - #37543 (Netzwerkprogrammierung und Netzwerke mit Perl)

Reinhard

2004-08-26 22:43

User since
2004-08-18
16 Artikel
BenutzerIn
[default_avatar]

Hallo steffenw,

ich habe jetzt einen Workaround, mit dem ich wohl leben muss.

Code: (dl )

my $maxPacket = 1500;
while ($SocketHandle->recv($Status,$maxPacket))
{
    if (length($Status) ne $maxPacket)
    {
        print $Status;
        last;
    }
    elsif (length($Status) eq $maxPacket)
    {    
        print $Status;
        next;
    }
}

dieser funktioniert solange nicht die gesendeten Bytes genau 1500 sind. Dann bleibt das Script wieder beim ->recv hängen.

Danke nochmals für Deine Hilfe!
Reinhard