Shell Programming and Scripting

I have enclosed the script. I am able to find the files that contain my search string but when I try to count the occurences within the file I get zero always. Any help on this.

#!/usr/bin/perl
my $find = $ARGV[0];
my $replace = $ARGV[1];
my $glob = $ARGV[2];
@filelist = <*$glob>;

# process each file in file list
foreach $filename (@filelist) {
$count = 0;
# print " P: $filename\n";
# retrieve complete file
open (IN, "$filename") || die("Error Reading File: $filename $!");
{
undef $/;
$infile = <IN>;
}
close (IN) || die("Error Closing File: $filename $!");
if ($infile =~ m/$find/gio)
{ print " Matched: $filename\n";
while (<IN>) {
while (m/$find/gio) {
$count++;
}
print $ARGV . "contains " . $search_this . " " . $count . (($count == 1) ? " time\n" : " times\n");
}
}
}
print "\nFinished.\n";

exit(0);

Code tags:

Code:

#!/usr/bin/perl
my $find = $ARGV[0];
my $replace = $ARGV[1];
my $glob = $ARGV[2];
@filelist = <*$glob>;
 
# process each file in file list
foreach $filename (@filelist) {
       $count = 0;
# print "    P: $filename\n";
# retrieve complete file
    open (IN, "$filename") || die("Error Reading File: $filename $!");
   {
    undef $/;          
    $infile = <IN>;
   }
    close (IN) || die("Error Closing File: $filename $!");
   if  ($infile =~ m/$find/gio){
            print "    Matched: $filename\n"; 
            while (<IN>) {
                  while (m/$find/gio) {
                  $count++;
                   }
    print $ARGV . "contains " . $search_this . " " . $count . (($count == 1) ? " time\n" : " times\n");
    }
   }
}
   print "\nFinished.\n";

   exit(0);

code tags for code please, they make it readable. (as far as that goes for perl, anyhow.)

[ code ] stuff [ / code ] without the extra spaces in the tags.

I am new to perl and do not understand your answer. Can you tell me specifically the error in my code?

I added code tags to your code. I think there is a { .. } mismatch in your example.

I still get no counts

#!/usr/bin/perl

my $find = $ARGV[0];
my $replace = $ARGV[1];
my $glob = $ARGV[2];
@filelist = <*$glob>;

# process each file in file list
foreach $filename (@filelist) {
$count = 0;
# print " P: $filename\n";
# retrieve complete file
open (IN, "$filename") || die("Error Reading File: $filename $!");
{
undef $/;
$infile = <IN>;
}
close (IN) || die("Error Closing File: $filename $!");
if ($infile =~ m/$find/gi)
{
while (<IN>) {
while ($infile =~ m/$find/gi)
{$count++};
}
print $filename . " contains " . $find . " " . $count . (($count == 1) ? " time\n" : " times\n");
}
}
print "\nFinished.\n";

exit(0);

I'm not being funny is there a requirement not to do this:

Code:

grep -c 'search string' file file1 file2

I was not aware I could pick unix commands within perl. If I can then of course I can use the grep.

Thanks