如何在 perl 脚本中使用系统命令“grep”答案

【问题标题】：how to use system command 'grep' in perl script如何在 perl 脚本中使用系统命令“grep”
【发布时间】：2015-04-15 04:30:54
【问题描述】：

我正在尝试在 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/*');

这是给整个目录计数。

【问题讨论】：

交叉投递：askubuntu.com/q/609452/336375
你看懂上面的问题了吗？
你有会使用系统的grep命令，还是不知道如何在Perl中使用grep命令？如果不必使用系统的 grep 命令，为什么不使用 Perl 中的呢？

标签： perl grep command

【解决方案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\*");

【讨论】：

【解决方案2】：

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

谢谢，尼莱什。

【讨论】：