Ich habe eine Bibliothek geschrieben, um von einem Port Nachrichten zu schreiben und zu lesen.
Beim Auslesen habe ich ein Problem mit der Länge. Alle Nachrichten haben am Anfang eine 10-stellige Zahl, die die Länge angibt. Irgendwie habe ich Schwierigkeiten, wenn ich die Länge direkt beim recv übernehme, wenn die Nachricht sehr lang sind. Als Workaround lese ich zur Zeit byteweise aus, was natürlich negativ auf die Performance wirkt.
Hat jemand eine Idee ?

Irgendwie hat die Zahl, die bei recv übergeben wird, etwas mit der Blocklänge zu tun und größere als 4096 habe ich noch nicht in Beispielen gesehen. Es ist auch so, wenn Du 4096 Bytes erwartest und das Paket die Anzahl nicht enthält, daß dann recv mit der kleineren Länge zurückkommt und erst beim nächsten recv die restilchen Bytes gelesen werden können. Also kann der Code nur eine Schleife bis zum Erreichen der Gesamtlänge oder Verbindungsende sein.

Dein Code klappt eigentlich nur, weil Du in der for-Schleife immer nur ein Byte erwartest und 0 erhaltene Byte einem Verbindungsabbruch entsprechen, nur eine while-Schleife kann die Bytes einsammeln, bis die Länge voll ist.

Nur mal so nebenbei:
Wenn ich for ($i=0;$i<$length;$i++) lese, denke ich immer, daß das kein Perl ist. Perl ist foreach my $i (0..$length-1), oder ?

Am besten for statt foreach, spart vier Zeichen beim Tippen und beim Lesen :-)

Du hast natürlich Recht, jedoch sollte man ein Perlprogramm immer so schreiben, daß es gutem Englisch entspricht.

So ist for (1..3) gutes Englisch, foreach (1..3) nicht. Bei for $value (@array) und foreach $value (@array) ist es genau umgekehrt.

Man schreibt ja auch nicht error() unless open(...);, sondern open() or error();

Hallo Steffem,
vielen Dank für die Hilfe. Die Performance hat sich spürbar verbessert.
Mein schlechter Perl-Stil kommt durch meine schlechte C und Java Kinderstube, ich habe Perl erst vor kurzem gelernt, weil ich tippfaul bin, schnell Ergebnisse haben und nicht großartig etwas auf einem Server installieren will.

Da ist mein Sprachempfinden wohl anders, ich benutze generell kein foreach, weil ich es überflüssig finde.

Wie gesagt, "Crian", es gibt mehr als einen Weg.

"weismat", ich merke immer wieder, wenn ich mich mit Kollegen vergleiche, die nicht Perl programmieren, daß ich mit Perl wie ein Level höher programmieren kann. Manch einer läßt im Sinne einer schnellen Lösung die so wichtige Abprüfung von Usereingaben aus falscher Faulheit einfach weg und erlebt später eine peinliche Situation. Mit Perl ist so etwas einfach. Und weil es so einfach ist, programmiere ich es auch immer mit, was ja eigentlich normal sein sollte. Ich denke, Du bist mit Perl und Deiner gesunden Faulheit auf dem richtigen Weg, jedenfalls, was die Anwendungsprogrammierung betrifft.

Jau, TIMTOWDI