Perl - значение по умолчанию для параметра подпрограммы

> жёстко заданы прототипы

если задае прототип ($$) - то не выдет.

определяйте foo без прототипа - и все будет работать.

как в С++ не получится, можно так:

sub file_open
{
my ($file_name, $mode) = @_;
$mode = "read_only" unless $mode;
}

Именно так я сейчас вообщем и работаю.
Странно, что нет подобной возможности.

Расслабь прототип. Там можно параметр объявить как необязательный. Ну или просто не прототипируй эту функцию.

RTFM:
sub myfunction ($;$) { }

вот так:

sub{
  if $_[1] {делать тото} # ... и все. че мудрить особенно...
}

зачем? охота заюзать киллограм когда при ентерпретации?

>RTFM: 
>sub myfunction ($;$) { }

Спасибо, буду знать.

Прототипирование. Не знаешь зачем? Тогда оно тебе не надо.