|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Andrey Sapozhnikov 2:5020/400 05 Aug 2003 22:41:02 To : Dmitry Y. Labutin Subject : Re: strict --------------------------------------------------------------------------------
Dmitry Y. Labutin wrote:
> Приветствую.
>
> Что нужно поменять, чтобы работало с use strict ?
>
> use strict;
> sub a {
> print "A\n";
> }
> sub b {
> my $q = shift;
> &$q;
> }
> &b('a');
>
Коротко:
&b(\&a);
Более длинно:
Пересмотреть практику формирования имени функции как
текстовой строки. Вероятные замены - хэш со ссылками
на функции обработчики, класс с методами-обработчиками
и предварительной проверкой методом can. В 99 из 100
случаев это оправдано, в оставшемся 1 случае - локально
отключить strict refs.
Заодно подумать об использовании & в вызовах функций.
Пропорция та же - 99 к 1.
--
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/657793236176.html, оценка из 5, голосов 10
|