in reply to reading 100 line at a one time
my @lines = (); open THISFILE, "c:/test.txt"; while(<THISFILE>) {push(@lines,$_);} close THISFILE; for(my $i = 0; $i <= 1000; $i += 100) {print $lines[$i] || "";}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: reading 100 line at a one time
by halley (Prior) on Mar 01, 2005 at 15:58 UTC | |
by jkva (Chaplain) on Mar 02, 2005 at 07:18 UTC | |
by QM (Parson) on Mar 02, 2005 at 18:59 UTC |