note
kennethk
With the improved spec, you'd want something more like:
<p><c>#!/usr/bin/perl -w
use strict;
my @data=();
my $file='c:\text.txt';
open my $fh,"<", $file or die "$file: $!";
while (my $line = <$fh>){
push @data, $line;
if (@data == 100) {
print @data;
@data = ();
}
}
print @data;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-712372">
<hr />
<p>#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.</p>
</div></div>
1012306
1012310