perl – 避免将某些参数混合到脚本中

发布时间：2020-12-15 21:48:13 所属栏目：大数据来源：网络整理

导读：我有一个脚本,可以使用Getopt :: Long获得数十个参数/标志. 某些标志不允许混合,例如： – linux –unix不允许一起提供.现在我知道我可以使用if语句进行检查,但我确信有更清洁,更好的方法可以做到这一点. 如果我不想允许许多标志组合,块可能会变得丑陋. 有什

我有一个脚本,可以使用Getopt :: Long获得数十个参数/标志.
某些标志不允许混合,例如： – linux –unix不允许一起提供.现在我知道我可以使用if语句进行检查,但我确信有更清洁,更好的方法可以做到这一点.

如果我不想允许许多标志组合,块可能会变得丑陋.

有什么建议？

谢谢,

解决方法

似乎 Getopt::Long没有这样的功能,并且在快速 search of CPAN之后没有任何内容.但是,如果您可以使用哈希来存储您的选项,那么创建自己的功能似乎并不太难看：

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

my %opts;
GetOptions(%opts,qw(
    linux
    unix
    help
)) or die;

mutex(qw(linux unix));

sub mutex {
    my @args = @_;
    my $cnt = 0;
    for (@args) {
        $cnt++ if exists $opts{$_};
        die "Error: these options are mutually exclusive: @args" if $cnt > 1;
    }
}

这也可以扩展到2个以上的选项：

mutex(qw(linux unix windoze));

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!