Perl获取所有命令行参数

Question

我想制作一个小输出绿色的小脚本。我写了这个：

#! /usr/bin/perl -w
use Term::ANSIColor;
my $prg = join(" ",@ARGV);
print(color('green'). `$prg` . color('reset'));

不幸的是它不起作用，因为join('',@argv);没有按预期行事。例如，如果我传递参数："foo" "bar"，我会得到foo bar没有引号。

如何在不删除转义引号的情况下获取所有命令行参数？

Answer 1

你正在与贝壳战斗，而不是perl;尝试

perl script.pl '"foo"' '"bar"'