Jak muze moje fce zrat $_?

[Pavel Smerk]

Potreboval bych umet napsat fci, ktera vezme parametr a pokud zadny
neni, tak vezme $_. Odpovida tomu nasledujici?

sub a {
    $a = shift;
    $a = $_ unless defined $a;
    ...
}

A pokud ano, jak bych mohl udelat, aby mi takova fce sezrala prave jeden
parametr (aby slo napsat print join ':', (a 2, a, "\n");)?

Diky

P.