我如何传递命令行参数到Perl程序？ [英] How can I pass command-line arguments to a Perl program?

问题描述

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

I'm working on a Perl script. How can I pass command line parameters to it?

示例：

script.pl "string1" "string2"

推荐答案

你想做什么。如果你想使用两个参数作为输入文件，你可以只传递它们，然后使用<> 来读取它们的内容。

Depends on what you want to do. If you want to use the two arguments as input files, you can just pass them in and then use <> to read their contents.

如果它们有不同的含义，可以使用 GetOpt :: Std 和 GetOpt :: Long 来轻松处理它们。 GetOpt :: Std 只支持单字符开关， GetOpt :: Long 更灵活。从 GetOpt :: Long ：

If they have a different meaning, you can use GetOpt::Std and GetOpt::Long to process them easily. GetOpt::Std supports only single-character switches and GetOpt::Long is much more flexible. From 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

或者， @ARGV 包含所有命令行参数的特殊变量。 $ ARGV [0] 是第一个（即string1）和 $ ARGV [1] 是第二个参数。您不需要使用特殊模块访问 @ARGV 。

Alternatively, @ARGV is a special variable that contains all the command line arguments. $ARGV[0] is the first (ie. "string1" in your case) and $ARGV[1] is the second argument. You don't need a special module to access @ARGV.

这篇关于我如何传递命令行参数到Perl程序？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！