Thread perl upload script: Speicherauslastung
(5 answers)
Opened by Gast at 2007-06-29 13:54
[quote=Guest,29.06.2007, 11:54]
Code: (dl
)
while (read (STDIN ,$LINE, 4096) && $b_read < $len ){ Das klappt? hmm da bin ich mir nicht so sicher. Angenommen die Länge, die über STDIN reinkommen soll ist 4097 Bytes. Der erste Schleifendurch- lauf klappt, da 4096 Bytes geliefert werden, der zweite/letzte hängt aber solange, da nur noch 1 Byte übrig ist, read() verlangt aber 4096 :) perl -e 'print length while read STDIN, $_, 100' Erst nach 100 Bytes (100 Zeichen) wird die Länge ausgegeben. What is a good module? That's hard to say.
What is good code? That's also hard to say. One man's Thing of Beauty is another's man's Evil Hack. |