Shell Programming and Scripting

perl can use system commands, yes. if that's all your perl script needs to do though, why use perl at all?

The other day this forum assisted me with my complex find statement in Unix with my grep, but I have reached the limit of the command line and therefore started to recode in Perl.

My understanding is that perl is much faster, also.

What is the syntax for Grep in Perl.. It is a built in caommand and different from unixs syntax

Type in

Code:

perldoc -f grep

But I don't think it is exactly what you want. You want to search through files while the grep command looks through lists.

You may also want to check this out:

perlfaq

I think he means:

Code:

$/usr/bin/perl
print `/usr/bin/grep -c "searchstring"  @ARGV`

perl has its own grep function and there is no doubt in my mind this is school work, which is not allowed to be posted here. Here is a big problem in the code you posted:

Code:

    open (IN, "$filename") || die("Error Reading File: $filename $!");
   {
    undef $/;          
    $infile = <IN>; <-- HERE THE FILE IS READ
   }
    close (IN) || die("Error Closing File: $filename $!");
   if  ($infile =~ m/$find/gio){
            print "    Matched: $filename\n"; 
            while (<IN>) {<-- HERE THERE IS NOTHING TO READ 
                  while (m/$find/gio) {
                  $count++;
                   }
    print $ARGV . "contains " . $search_this . " " . $count . (($count == 1) ? " time\n" : " times\n");
    }
   }
}

See if you can figure it out. I don't do peoples school work for them.

Now I just need to figure out how to get complete file path to print out as well.

#!/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>;
while ($infile =~ m/$find/gi)
{$count++};
print $filename . " contains " . $find . " " . $count . (($count == 1) ? " time\n" : " times\n");
}
# print $filename . " contains " . $find . " " . $count . (($count == 1) ? " time\n" : " times\n");
close (IN) || die("Error Closing File: $filename $!");
}
print "\nFinished.\n";

exit(0);