I have
#!/usr/bin/perl
$REPORT_file="report.htm";
$ imput_file=$ARGV[0]||'imput.dat';
unless (-e $imput_file)
{
die "$0: error:missing file: $imput_file";
}
open (IN, $imput_file) or die "$0 : error: $imput_file: $!";
#print $imput_file;
my $line;
while ($line=<IN>)
{
chomp $line;
print "processing line $. \n";
}
and it works, takes an imput file and for each row read says processing
line and the number of the line, if the imput file has 10 lines then it
will say me 10 times one line after the other processing line 1...10 now
I would like to know how canI get the total number of rows with having to
have the procesing line 1...n I mean that just gives me as an output
number of lines: number of rows in the text: number of w in the text: by
the way this may sound very easy but ...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
