如何在perl中执行存储在文件中的命令

Question

我想运行此命令，但不是从命令行运行。我想运行文件，例如first.pl，它执行一些其他命令。例如，当我运行这个文件我想这样做：

perl -ne "print qq{$1\n} if /^\s+ (\w+)/x" file 

它应该在这个文件中。我尝试这样的：

my $input = "input.txt"; 
my @listOfFiles = `perl -ne "print qq{$1\n} if /^\s+ (\w+)/x" $input`; 
print @listOfFiles; 

但它没有打印任何东西。感谢您的回答。

Answer 1

没有必要单独运行perl的命令，只是做你想做的事，主要的脚本：

open my $file, "input.txt"; 
my @listOfFiles; 
while (<$file>) { 
    if (/^\s+ (\w+)/x) { 
    push @listOfFiles, $1; 
    } 
} 
close $file; 
print "@listOfFiles"; 

Answer 2

始终使用use strict; use warnings;！你会得到

Unrecognized escape \s passed through 
Unrecognized escape \w passed through 
Use of uninitialized value $1 in concatenation (.) or string 

由于$1是除了期望$input。所以你需要恰当地逃避你的论点。假设你不是在Windows系统上，

use strict; 
use warnings; 

use String::ShellQuote qw(shell_quote); 

my $input = "input.txt"; 
my $cmd = shell_quote('perl', '-ne', 'print "$1\n" if /^\s+ (\w+)/x', $input); 
chomp(my @listOfFiles = `$cmd`); 
print "$_\n" for @listOfFiles;