如何将命令行参数传递给Perl程序?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (20)

我正在编写一个Perl脚本。如何将命令行参数传递给它?

例子:

script.pl "string1" "string2"
提问于
用户回答回答于

如果它们有不同的含义,您可以使用GetOpt::StdGetOpt::Long很容易处理。GetOpt::Std只支持单字符开关和GetOpt::Long更加灵活。从GetOpt::Long

use Getopt::Long;
my $data   = "file.dat";
my $length = 24;
my $verbose;
$result = GetOptions ("length=i" => \$length,    # numeric
                    "file=s"   => \$data,      # string
                    "verbose"  => \$verbose);  # flag

用户回答回答于

my $numArgs = $#ARGV + 1;
print "thanks, you gave me $numArgs command-line arguments.\n";

foreach my $argnum (0 .. $#ARGV) {

   print "$ARGV[$argnum]\n";

}

扫码关注云+社区