See below: On 2/19/02 9:30 AM, "Tim Lago" <[EMAIL PROTECTED]> wrote:
> 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>);
my $count;
> while(<INFILE>) {
>
> if(/$realname/) {
> print OUTFILE;
++$count;
> }
>
> }
>
print "Number of lines created in outfile.txt: $count";
- geoff
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
