如何在perl腳本中使用系統命令'grep'

Question

我想在Perl腳本中使用grep命令來計數匹配的字符。下面的腳本是計算整個目錄，我的所需輸出應該只包含輸入文件的數量而不是整個目錄，有一個幫助我這樣做。

#! 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的行數。

而且你不需要解壓來算，你可以直接做，而不是這個

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

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

Answer 2

我是$ var = cat filename | grep "your word";

謝謝， nilesh。