如何在Perl脚本中使用系统命令'grep'

Question

I am trying to count the matching character using grep command in Perl script. Below script is counting whole directory, my desired output should contain only the count of input file not the whole directory, some one help me to do so.

#! use/bin/perl

use strict;


print"Enter file name for Unzip\n";
print"File name: ";
chomp(my $Filename=<>);
system("gunzip -r ./$Filename/*\n");
system('grep -c "@SRR" ./$Filename/*');  

This is giving whole directory count.

Answer 1

#! use/bin/perl
use strict;
print"Enter file name for Unzip\n";
print"File name: ";
chomp(my $Filename=<>);
system("gunzip -r ./$Filename\*");
system("grep -c '\@SRR' ./$Filename\*");

Please let know if i misunderstood question. But above code gives us number of lines matching @SRR on zipped filename provided.

Also you don't need to unzip to count you can directly do this

system("zgrep -c '\@SRR' $Filename")

instead of

 system("gunzip -r ./$Filename\*");
 system("grep -c '\@SRR' ./$Filename\*");

Answer 2

my $var= cat filename | grep "your word" cat filename | grep "your word" ;

Thanks, nilesh.