Как использовать системную команду 'grep' в perl-скрипте

Question

Я пытаюсь подсчитать соответствующий символ, используя команду grep в скрипте Perl. Ниже скрипта подсчитывается весь каталог, мой желаемый вывод должен содержать только количество входных файлов, а не весь каталог, некоторые помогают мне это сделать.

#! 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/*'); 

Это дает полный список каталогов.

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\*"); 

Пожалуйста, сообщите, если я неправильно понял вопрос. Но выше код дает нам количество строк, соответствующих @SRR, по предоставленному zip-файлу.

Также вам не нужно разархивировать рассчитывать вы можете непосредственно сделать это

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

вместо

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

Answer 2

мой $ Var = cat filename | grep "your word";

Thanks, nilesh.