Subroutine z hash i opcjonalnym skalarnego argumentu

Question

Mam podprogram z prototypem takich jak to:

sub printFoo(%) { 
    my (%hashFoo)=@_; 
    # do stuff with the hash 
} 

Ale chciałbym ewentualnie podanie w drugim skalarnego argumentu takiego:

sub printFoo(%;$) { 
    my (%hashFoo,$optionalArg)=@_; 
    # do stuff with the hash and the optional arg 
} 

I Rozumiem, że w trybie ostrzegawczym jest to nie-nie, ale nie jestem pewien dlaczego.

Przypuszczam, że mogę użyć flagi zmiennej globalnej, ale jakiejkolwiek porady, jak elegancko wykonać tego typu podpis funkcji?

Answer 1

Nie wiem, czy to się liczy jako elegancki, ale ...

sub printFoo { 
    my $optionalArg; 
    if (@_ % 2 != 0) { 
     $optionalArg = pop @_; 
    } 
    my %hashFoo = @_; 
    ... 
} 

Prototyp z odniesieniem hash będzie również działać. Nadal powoływałbyś się na funkcję z hashem, ale musisz pamiętać, że pierwszy argument hash zostanie odebrany przez twój sub jako odniesienie hash.

sub printFoo (\%;$) { # call as printFoo %foo or printFoo %foo, 42 
    my ($hashFooRef, $optionalArg) = @_; 
    my %hashFoo = %$hashFooRef; 
    ... 
} 

Answer 2

Zgadzam się z Hakon Haegland na temat używania hash ref. Aby uzyskać więcej niż jeden argument, który możesz wybrać, musisz przekazać kilka skalarów, a nie to, co zasadniczo jest listą, po której następuje coś innego.

Myślę, że nie ma to związku z pytaniem, czy należy używać prototypów. System ostrzegania wyświadczył ci przysługę, zaznaczając to, ale mam 99,44% pewności, że nie zadziała, nawet jeśli odrzucisz prototyp. Wciąż nie otrzymasz wartości parametru opcjonalnego.

Answer 3

elegancko czynienia z opcjonalnym parametrem:

sub do_something { 
    my (%params) = @_; 
    my $debug = delete $params{debug} || 0; 
    # do something with %params... 
} 

Answer 4

Jeśli używasz ref hash jak inni sugerowali jako pierwszy arg, a następnie sprawdzając args po ich akceptacji jest trywialne:

use strict; 
use warnings; 

my %hash = (a => 1, b => 2,); 
my $scalar = 1; 

printFoo(\%hash, $scalar); 

sub printFoo { 
    my ($href, $opt) = @_; 

    if(ref $href ne 'HASH' || $opt && ref \$opt ne 'SCALAR'){ 
     die "Usage: printFoo(hashref, optional_scalar)\n"; 
    } 

    ... 
}