perl - 为什么 Unix 命令在 Perl 脚本中不起作用？

Question

我想提取从特定模式开始的文本文件的一部分并将其存储在另一个文件中。我的 Perl 脚本采用单个参数作为输入文本文件。到目前为止，我已经:

my $INPUT = $ARGV[0];
my $LINES_TO_DUMP = 4000;
my $startline = `egrep -n "^PATTERN" $INPUT | head -1 | cut -f1 -d:`;

# THIS LINE DOESN'T WORK
system("tail +$startline $INPUT | head -$LINES_TO_DUMP > extracted.txt");

当我运行程序时，它在运行第二个命令时“卡住”了(egrep 命令有效，并存储了正确的数字)。我已在终端中运行该命令以确保其有效。

出了什么问题？

Answer 1

您的 $startline 中可能有一个换行符，因为它是从命令输出中消耗的。您应该确认这一点，然后在调用 system() 之前在 $startline 上使用 chomp()。

这是perldoc for chomp按照建议。