if (!defined $a || !defined $b || .. ) выглядит очень неуклюже. Можно как-нибудь if undefined ($a $b $c $d) { ... } ?

• Как проверить на defined сразу несколько переменных?,arturpub, 20:04 , 12-Авг-08
• Как проверить на defined сразу несколько переменных?,qq, 21:40 , 12-Авг-08
• Как проверить на defined сразу несколько переменных?,angra, 06:41 , 13-Авг-08
  • Как проверить на defined сразу несколько переменных?,rookie, 09:16 , 13-Авг-08
  • Как проверить на defined сразу несколько переменных?,rookie, 09:42 , 13-Авг-08
    • Как проверить на defined сразу несколько переменных?,angra, 23:43 , 13-Авг-08

foreach ($a, $b, ...) { do {
    ...
} and last if not defined $_ }

sub undefined { foreach (@_) { return 1 if not defined $_ }; 0 }

можно покумекать через grep/map

да, еще в List::Util есть несколько примеров

>if (!defined $a || !defined $b || .. ) выглядит очень неуклюже.
>Можно как-нибудь if undefined ($a $b $c $d) { ... }
>?

модуль List::MoreUtils

               print "At least one value undefined"
                   if any { !defined($_) } @list;

               print "All items defined"
                   if all { defined($_) } @list;

Используйте обычный grep, например (!defined $a || !defined $b || .. ) заменяется на grep !defined, ($a,$b,$c).
Пример:

$ perl -le 'my ($a,$b,$c)=(0,1,2);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
Good
perl -le 'my ($a,$b,$c)=(0,1);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
Bad

>Используйте обычный grep, например (!defined $a || !defined $b || .. )
>заменяется на grep !defined, ($a,$b,$c).
>Пример:
>
>$ perl -le 'my ($a,$b,$c)=(0,1,2);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
>Good
>perl -le 'my ($a,$b,$c)=(0,1);print((grep !defined, ($a,$b,$c))?"Bad":"Good");'
>Bad

Спасибо, это то, что надо.
Спасибо всем

>Используйте обычный grep

Ещё одина близкая тема.
Как разрушить одним undef сразу несколько переменных?
Код undef ($a, $b, $c) не работает как хотелось :-(

perldoc -f map :)
Функции map и grep применяются очень часто, так что стоит их освоить.