Perl argumenty podprogramów jak hash

Question

Jak mogę utworzyć podprogram, który można analizować argumenty tak:

&mySub(arg1 => 'value1', arg2 => 'value2' ...); 

sub mySub() { 
    # what do I need to do here to parse these arguments? 
    # no arguments are required 
} 

Answer 1

Wystarczy przypisać tablicę wejściową do mieszania:

sub my_sub { 
    my %args = @_; 
    # Work with the %args hash, e.g. 
    print "arg1: ", $args{arg1}; 
} 

Jeśli chcesz, aby zapewnić wartości domyślne, można użyć:

sub my_sub { 
    my %args = ('arg1' => 'default arg1', 
       'arg2' => 'default arg2', 
       @_); 
    # Work with the (possibly default) values in %args 
} 

Answer 2

może również znaleźć bardzo użyteczne w Method::Signatures modu le, co pozwoli ci zrobić coś takiego:

func MySub (Str :$arg1 = 'default arg1', Str :$arg2 = 'default arg2') { 
    print "arg1: ", $arg1}; 
}