在 Perl 脚本中处理命令行参数的正确方法是什么？

Question

我正在尝试创建一个在运行时接受命令行参数的脚本/应用程序。当然，这是日常工作，但由于这是我第一次这样做，因此我正在寻求一些指导。假设我的脚本可以采用这些类型的命令行参数：

script -a -p /path/to/pipe -l mail.Error -m [email protected]
script -a -l mail.Error -m [email protected] -p /path/to/pipe

and so on....

由于命令行脚本的灵活性，您可以传递给它的参数可以采用多种顺序，并且可能会丢失/具有无效参数。现在，我知道可以通过非常严格地限制参数的显示方式来解决这个问题（首先 -a，然后带有路径的 -p，然后 - l 带有日志设施/优先级，最后 -m 带有有效的电子邮件）并测试它们所有可能出现的情况。

但必须有更好的方法。这（对我来说）效率非常低，我想知道是否有更好的方法来做事。我想保持尽可能的灵活性，让事情正常运转，而不是专注于严格的使用。

Answer 1

我使用 Getopt::Long 作为参数。

未经测试的示例：

use Getopt::Long;
## set defaults
my $path   = '/tmp';
my $log = 'm.Error';
my $email = '[email protected]';
my $a = 0;
my $result = GetOptions ("path=s"  => \$path,
                         "log=s"   => \$log,
                         "a"       => \$a,
                         "email=s" => \$email);
## both script -a -p /path/to/pipe -l mail.Error -m [email protected]
## and script -a -l mail.Error -m [email protected] -p /path/to/pipe
## should work now

Answer 2

如果您只需要 1 个字符的选项，请使用 Getopt::Std；如果您想支持更长的参数名称，请使用 Getopt::Long。

Answer 3

Getopt::Long 可以自动将您的命令行解析为哈希变量。命令行上的顺序并不重要。您可以通过检查哈希键来检查是否给出了选项。

use warnings;
use strict;
use Getopt::Long;

my %opts;
GetOptions(\%opts, qw(a p=s l=s m=s)) or die;