如何在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" cat filename | grep "your word" ；

謝謝，尼羅什。