Re^3: perl loop counter

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

Comment on Re^3: perl loop counter Download Code

Replies are listed 'Best First'.
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]