LINUX.ORG.RU
Форум — Development  

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


0

0 
Возможно ли задать значение по умолчанию для параметра sub'a?
Есть функция, типичный вызов которой выглядит так
foo("string",undef);
и только в исключительный случаях 
foo("error",1);

Хотелось бы иметь возможность вызывать так
foo("string");
foo("error",1);

Имеется ввиду, что включены все strict моды, жёстко заданы прототипы
и т.п.
Мне нужно как в C++.

Это возможно в Perl?
← Способ избавиться от backward-несовместимости в glibc... Кошерно ль?
Неблокирующий опрос клавиатуры → 
> жёстко заданы прототипы

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

определяйте foo без прототипа - и все будет работать.
idle ★★★★★
()
как в С++ не получится, можно так:

sub file_open
{
my ($file_name, $mode) = @_;
$mode = "read_only" unless $mode;
}
aton ★
()
Расслабь прототип. Там можно параметр объявить как необязательный. Ну или просто не прототипируй эту функцию.
Zulu ★★☆☆
() 
вот так:

sub{
  if $_[1] {делать тото} # ... и все. че мудрить особенно...
}
anonymous
()
Ответ на: комментарий от anonymous
Прототипирование. Не знаешь зачем? Тогда оно тебе не надо.
Zulu ★★☆☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Способ избавиться от backward-несовместимости в glibc... Кошерно ль?
Development
Неблокирующий опрос клавиатуры →