На Perl аргументов подпрограммы

Perl не управляет обработкой аргументов для вас. Вместо этого он обеспечивает минимальную, гибкую абстракцию и позволяет писать код, который соответствует вашим потребностям.

Проходим По Ссылке

по умолчанию Perl вставляет псевдоним для каждого аргумента в @_. Это реализует основные, проходим по ссылке семантика.

my $num = 1;
foo($num);
print "$num\n";  # prints 2.

sub foo { $_[0]++ }

Pass по ссылке быстро, но имеет риск утечки изменений в данные параметров.

Проходим Мимо Копия

если вы хотите пройти мимо copy семантика, вам нужно сделать копии самостоятельно. В сообществе Perl распространены два основных подхода к обработке списков позиционных параметров:

sub shifty {
    my $foo = shift;
}

sub listy {
    my ($foo) = @_;
}

на моем месте работы мы делаем версию listy:

sub fancy_listy {

    my ($positional, $args, @bad) = @_;

    die "Extra args" if @bad;
}

Именованные Параметры

Другой распространенной практикой является использование именованные параметры:

sub named_params {
    my %opt = @_;
}

некоторые люди довольны только вышесказанным. Я предпочитаю более подробный подход:

sub named_params {
    my %opt = @_;

    my $named = delete $opt{named} // "default value";
    my $param = delete $opt{param}
        or croak "Missing required 'param'";

    croak "Unknown params:", join ", ", keys %opt
        if %opt;

    # do stuff 
}

это распаковывает именованные параметры в переменные, разрешает пространство для базовой проверки и значений по умолчанию и обеспечивает, чтобы никакие дополнительные неизвестные аргументы не передавались.

На Прототипах Perl

"прототипы" Perl являются не прообразы в обычном смысле. Они предоставляют только подсказки компилятора, которые позволяют пропустить скобки при вызовах функций. Единственное разумное использование-имитировать поведение встроенных функций. Вы можете легко победить проверку аргументов прототипа. В общем, НЕ ИСПОЛЬЗОВАТЬ ПРОТОТИПЫ. Используйте их с осторожностью, чтобы использовать перегрузку оператора-т. е. экономно и только для улучшения читаемости.

по какой-то причине Perl любит списки и не любит статическую типизацию. The @_ массив фактически открывает большую гибкость, потому что аргументы подпрограммы передаются по ссылке, а не по стоимости. Например, это позволяет нам делать-аргументы:

my $x = 40;
add_to($x, 2);
print "$x\n"; # 42

sub add_to { $_[0] += $_[1] }

... но это скорее исторический Хак производительности. Обычно аргументы "объявляются" назначением списка:

sub some_sub {
  my ($foo, $bar) = @_;
  #               ^-- this assignment performs a copy
  ...
}

это делает семантику этого sub call-by-value, что обычно более желательно. Да, неиспользуемые аргументы просто забываются, и слишком мало аргументов не вызывают автоматической ошибки – переменные просто содержат undef. Вы можете добавить произвольную проверку, например, проверив размер @_.

существуют планы наконец сделать именованные параметры доступными в будущем, которые будут выглядеть как

sub some_sub($foo, $bar) { ... }

вы можете иметь следующий синтаксис если вы установите signatures. Но есть кое-что еще лучше: я могу настоятельно рекомендовать Function::Parameters, который позволяет синтаксис, как

fun some_sub($foo, $bar = "default value") { ... }

method some_method($foo, $bar, :$named_parameter, :$named_with_default = 42) {
  # $self is autodeclared in methods
}

это также поддерживает проверки экспериментального типа.

расширения парсера FTW!

Если вы действительно хотите ввести более строгие проверки параметров в Perl, вы можете посмотреть что-то вроде Params:: Validate.

У Perl есть прототипирование возможность для заполнителей параметров, которые вы привыкли видеть, но это часто не нужно.

sub foo($){
    say shift;
}; 
foo();      # Error: Not enough arguments for main::foo
foo('bar'); # executes correctly

и если вы сделали sub foo($$){...} для этого потребуется 2 необязательных аргумента (например,foo('bar','baz'))

Вы можете просто использовать:

my ($arg1, $arg2) = @_;

чтобы явно ограничить количество аргументов, которые можно использовать:

my $number =2;
die "Too many arguments" if @_ > $number;

Если Вы читаете о perl в последнее время, пожалуйста, прочитайте последние perl. Вы можете прочитать В Современном Языке Perl книги бесплатно, а также: бесплатная онлайн современная книга Perl

вот несколько примеров из этой книги о подписи функции:

sub greet_one($name = 'Bruce') { 
    say "Hello, $name!"; 
}
sub greet_all($leader, @everyone) { 
    say "Hello, $leader!"; 
    say "Hi also, $_." for @everyone; 
}
 sub make_nested_hash($name, %pairs) { 
    return { $name => \%pairs }; 
}