Избегайте смешивания определенных аргументов со сценарием

У меня есть скрипт, который может получить десятки аргументов/флагов, используя Getopt::Long. Некоторые флаги нельзя смешивать, например: --linux --unix нельзя указывать вместе. Я знаю, что могу проверить с помощью оператора if. Есть ли более чистый и приятный способ сделать это?

Блоки if могут стать уродливыми, если я не хочу разрешать множество комбинаций флагов.


arguments perl flags
person snoofkin    schedule 24.04.2012    source источник

Ответы (1)


arrow_upward
4
arrow_downward

Не похоже, что Getopt::Long имеет такую ​​особенность, и ничего не торчит после быстрый поиск 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));
person toolic    schedule 24.04.2012