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制作。

如何使用系统命令＆＃39; grep＆＃39;在perl脚本中

2 个答案: