Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Searchin for a word in a text file?
- Thread starter patraf
- Start date
Try this. My regex might be off, but this will get you going.
#!usr/bin/perl
$count = 0;
$word = "WordToSearchFor";
open (FILE, /path/to/file.ext) or die "Can't open file: $!";
while ($line = <FILE>)
{
if ($line = ~s/$word//ig)
{
$count++;
}
}
print "The number of times the word $word appears is $count\n";
#!usr/bin/perl
$count = 0;
$word = "WordToSearchFor";
open (FILE, /path/to/file.ext) or die "Can't open file: $!";
while ($line = <FILE>)
{
if ($line = ~s/$word//ig)
{
$count++;
}
}
print "The number of times the word $word appears is $count\n";
A few minor tweaks....
- The 'if' on the regex would only do the first instance of a match in a line. If the word occurred in the line more than once, you'd miss all after the first one.
- Also, your regex is doing a replace which is not needed. You can just check for a match and increment $count on each match.
'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
- The 'if' on the regex would only do the first instance of a match in a line. If the word occurred in the line more than once, you'd miss all after the first one.
- Also, your regex is doing a replace which is not needed. You can just check for a match and increment $count on each match.
Code:
open (FILE, /path/to/file.ext) or die "Can't open file: $!";
while ($line = <FILE>)
{
while ($line =~ /$word/ig) { $count++; }
}
close FILE;
print "$count\n";'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
- Status
Similar threads
