在Perl中把包含空格的参数从一个脚本传递到另一个脚本中

Question

我试图将参数从一个Perl脚本传递到另一个脚本。有些参数包含空格。

我正在读取一个以逗号分隔的文本文件，并在逗号上分割每一行。

my ($jockey, $racecourse, $racenum, $hnamenum, $trainer, $TDRating, $PRO) = split(/,/, $line); 

逗号分隔的文本文件中的数据如下。

AARON LYNCH,WARRNAMBOOL,RACE 1,DAREBIN (8),ERIC MUSGROVE,B,1

当我从父脚本中打印出每个变量时，它们看起来很好（如上）。

print "$jockey\n";
print "$racecourse\n";
print "$racenum\n";
print "$hnamenum\n";
print "$trainer\n";
print "$TDRating\n";
print "$PRO\n";           

AARON LYNCH
WARRNAMBOOL
RACE 1
DAREBIN (8)
ERIC MUSGROVE
B
1

当我把参数传给子脚本时（如下图），参数的传递是不正确的。

system("perl \"$bindir\\narrative4.pl\" $jockey $racecourse $racenum $hnamenum $trainer $TDRating $PRO");

AARON
LYNCH
WARRNAMBOOL
RACE
1
DAREBIN
(8)

如你所见，$ARGV[0]变成了AARON，$ARGV[1]变成了LYNCH，$ARGV[2]变成了WARRNAMBOOL，等等。

我曾研究过使用qq、quotemeta和Win32::ShellQuote给参数加引号，不幸的是，即使我通过qq{"$jockey"}，引号在到达子脚本之前还是会被剥离，所以必须用某种方式保护它们。

我不确定上述两种解决方案是否正确，但我很乐意被纠正。

如果有任何建议，我将感激不尽。先谢谢你了。

注：我是在Windows 10 PC上使用草莓Perl运行的。注2：在这些例子中，我故意不使用严格；&amp；使用警告。

父脚本

use Cwd;
$dir = getcwd;
$bin = "bin"; $bindir = "$dir/$bin";

$infile = "FINAL-SORTED-JOCKEY-RIDES-FILE.list";

open (INFILE, "<$infile") or die "Could not open $infile $!\n";

while (<INFILE>)
{
   $line = $_;

   chomp($line);

   my ($jockey, $racecourse, $racenum, $hnamenum, $trainer, $TDRating, $PRO) = split(/,/, $line); 

   print "$jockey\n";
   print "$racecourse\n";
   print "$racenum\n";
   print "$hnamenum\n";
   print "$trainer\n";
   print "$TDRating\n";
   print "$PRO\n";            

   system("perl \"$bindir\\narrative4.pl\" $jockey $racecourse $racenum $hnamenum $trainer $TDRating $PRO");

   sleep (1);
}
close INFILE;

exit;

儿童脚本

$passedjockey = $ARGV[0];
$passedracecourse = $ARGV[1];
$passedracenum = $ARGV[2];
$passedhnamenum = $ARGV[3];
$passedtrainer = $ARGV[4];
$passedTDRating = $ARGV[5];
$passedPRO = $ARGV[6];

print "$passedjockey\n";
print "$passedracecourse\n";
print "$passedracenum\n";
print "$passedhnamenum\n";
print "$passedtrainer\n";
print "$passedTDRating\n";
print "$passedPRO\n\n";

Answer 1

那整个双引号的字符串被传递给了 system 首先被评估，因此所有的变量都会被插值--所以原本打算的多字参数变成了仅仅是列表中的字。所以最后字符串有一个以单个单词为参数的命令运行。

那么，即使你想出了如何把哪些引号恰到好处地粘在那里，从而使这些多字参数 "在一起"，仍然有可能被调用shell，在这种情况下，这些参数在被传递给程序之前又被拆成了字。

与其这样，不如使用LIST形式的 制度. 然后，第一个参数是不使用shell而直接执行的程序的名称(详情请看文档)，其余的参数则原封不动地传递给该程序。

母程序

use warnings;
use strict;
use feature 'say';

my @args = ('first words', 'another', 'two more', 'final'); 

my $prog = 'print_args.pl';

system($prog, @args) == 0  
    or die "Error w/ system($prog, @args): $!";

和被调用的 print_args.pl

use warnings;
use strict;
use feature 'say';

say for @ARGV;

的 @ARGV 包含调用时传递给程序的参数。还有更多可以检查错误的方法，请看文档和其中的链接。^†

通过你所展示的内容，你确实不需要shell，而且LIST形式一般很容易推荐，作为使用的基本方式。system，当外壳不需要。 如果你要 需要 命令中的某些功能，那么你就必须想办法保护这些空间。

---

^† 还有一些运行外部程序的模块，这些模块远比 system & Co. 从易用性到功能和动力。IPC::System::Simple, Capture::Tiny, IPC::Run3, IPC::Run.