Как выполнить команду, сохраненную в файле в 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;