How to count lines in an output file

[Tim Lago]

I've written a really simple script that opens a file, reads for specific
line of text and copies the matches to an output file,

Here it is:

open(INFILE, "rmaccess1.txt");
open(OUTFILE, ">outfile.txt");

print "Enter the name of the Media file to analyze and press Enter: \n";

chomp($realname = <STDIN>);

while(<INFILE>) {

 if(/$realname/) {
  print OUTFILE;
   }

}

Now, I want to add another line that counts the number of lines that were
created in the outfile.txt, any help?



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]