perl - 如何在perl中包含用户输入的单引号

Question

用户将要输入输入字符串，例如 Tom's Toy。然而 perl 脚本提示说“不匹配”。

这是我的代码。

my $commandline="";
while (@ARGV) {
  $_ = shift @ARGV;
  {$commandline .= $_ . ' ';}
}
print " Running $commandline\n";
system ($commandline);

现在如果用户输入是 Tom's Toy。我只想打印回汤姆的玩具。然而 perl 提示“无与伦比的”。如果我不引用用户的话，它就可以正常工作。 (例如:Tom Toy 不错)我该如何解决这个问题。

非常感谢任何帮助。提前致谢

Answer 1

如果您稍作调整以使用该函数的 system $cmd, @args 版本，将不会调用任何 shell，因此无需转义。

my $cmd = shift @ARGV;
my @args = @ARGV;
print " Running $cmd\n";

system $cmd, @args;

我用 ./test.pl echo Tom\'s Toy 进行了测试，它给出了预期的输出:

 Running echo
Tom's Toy