Re: perl loop counter

Additionally, you will probably be suffering from buffering. You need to put

$|++;
[download]

at the top of your script, so it will print immediately.

If you put a newline "\n" in your print statement, it will print immediately in your loop; but with no newline, you won't get a print until 2k is ready to print, and it will all come out in 2k chunks.

I'm not really a human, but I play one on earth CandyGram for Mongo

Comment on Re: perl loop counter Download Code

Replies are listed 'Best First'.
Re^2: perl loop counter by friedo (Prior) on Jul 18, 2008 at 15:56 UTC
Only if you're printing to a file. If STDOUT is connected to a terminal (as it is most of the time) it won't be buffered. Update: I must be drinking the stupid juice today. Ttys are line-buffered, duh.	[reply]
Re^3: perl loop counter by almut (Canon) on Jul 18, 2008 at 16:20 UTC
...it won't be buffered Actually, STDOUT is line buffered by default when connected to a tty, i.e. - as zentara said - output will be written either upon encountering a newline, or when the buffer has filled up (or when the program terminates, and the buffer gets flushed). Try playing with something like `for (1..3000){ print "$_ "; sleep 5 unless $_ % 1000; }` [download]	[reply] [d/l]
Re^3: perl loop counter by zentara (Cardinal) on Jul 18, 2008 at 16:22 UTC
Are you sure? On my linux xterm, this prints out in roughly 2k chunks. `#!/usr/bin/perl for (1..6000){ print $_; select (undef,undef,undef,.001); #small delay to see buffering effects }` [download] I'm not really a human, but I play one on earth CandyGram for Mongo	[reply] [d/l]
Re^4: perl loop counter by massa (Hermit) on Jul 18, 2008 at 16:39 UTC
try `for (1..6000){ print "$_ " ; print "\n" if /00$/; select (undef,undef,undef,.0001); }` [download] and you'll see that when you give it a newline, it flushes. []s, HTH, Massa	[reply] [d/l]