Hi Perl Masters
I have a problem with a script which is suposed to open a huge text
file and take 70 lines, create a file, then take the next 70 lines
create a file and so on until it has parsed the whole file. My code
just doesn't work and my brain cannot figure out while{while{}} loops
Help please.
Thanks
Brad
Code:
#! /usr/bin/perl
my $input = 'test12.txt';
my $end= '.txt';
my $fileno=1;
my $lineno=1;
open BIG, "test12.txt", or die "can't $!";
while (<BIG>) {
print "$lineno";
$newfile = "$fileno$end";
$fileno++;
open NEW ,"> $newfile";
while ($lineno < 71){
$lineno++;
print NEW $_;
}}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
