..."Then you should see something interesting"
Here we go:
0 1 use strict; 2 use warnings; 3 use IO::All; 4 5 # v5.18.2 6 # Windows 7 8 my $io = io $0; 9 $| = 1; 10 while ( my ( $index, $value ) = each @$io ) { 11 print qq($index\t$value); 12 sleep 5; 13 print qq($index\t$value\n); 14 15 } 16 __END__ 17 18 19
Thanks and best regards, Karl
«The Crux of the Biscuit is the Apostrophe»
In reply to Re^2: Why doesn't this print when i omit the newline?
by karlgoethebier
in thread Why doesn't this print when i omit the newline?
by karlgoethebier
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |