call this script like
perl script.pl File_name.txt
perl script.pl < File_name.txt
more File_name.txt | perl script.pl
my $count=0;
while (<>){
$count++ if /VIOLATE/;
}
print $count;
Must work
-----Original Message-----
From: Boon Chong Ang [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 16, 2003 10:30 AM
To: [EMAIL PROTECTED]
Subject: search and count
Hi,
I am a beginner to Perl. Well, I have a scenario like this. I have a
pattern like VIOLATE in the file. So, I want to use the perl to search
that pattern and see how many times it found such pattern. For example
VIOLATE
ABC
ABC
ABC
VIOLATE ABC VIOLATE [in the same row and so I want it to count as one]
ABC
ABC
VIOLATE
VIOLATE
I just want to report as 4 only.
Thank you & best regards,
ABC
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
