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

Posted 2023-02-16

【中文标题】在 Perl 中将包含空格的参数从一个脚本传递到另一个脚本

【英文标题】：Passing arguments containing spaces from one script to another in Perl

【发布时间】：2020-06-02 07:14:41

【问题描述】：

我正在尝试将参数从一个 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 上使用 Strawberry Perl 运行它。 注2：我故意省略了 use strict； & 使用警告；在这些例子中。

父脚本

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";

【问题讨论】：

使用system的列表版本？

【参考方案1】：

传递给system 的整个双引号字符串首先被求值，因此所有变量都被插值——因此预期的多字参数只是列表中的字。所以最后字符串有一个命令来运行单个单词作为参数。

然后，即使您知道如何正确地将哪些引号插入其中，所以为了将这些多词参数“放在一起”，仍然有可能调用 shell，在这种情况下，这些参数再次被破坏在被传递给程序之前，变成单词。

使用system 的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，并且当不需要 shell 时，通常很容易推荐 LIST 形式作为使用 system 的基本方式。如果您要在该命令中需要 shell 的功能，那么您必须弄清楚如何保护这些空间。

---

^† 还有一些用于运行外部程序的模块远远优于system & Co. 从易用性到功能和功能： IPC::System::Simple、Capture::Tiny、IPC::Run3、IPC::Run。

【讨论】：

完美！非常感谢@zdim 并感谢您提供有关运行外部程序等的详细解释和附加信息。我将进一步调查。万事如意！

@BillyJ 非常高兴，如果它有帮助:)。使用这些模块的一个好处是它什么都没有——查看链接文档中的概要，这就是所有需要做的事情；一行代码。一个更好的事情。所以我绝对推荐。保重:)