OpenForum RSS: �� defined �� ?

�� defined �� ? (angra)

Wed, 13 Aug 2008 19:43:16 GMT

perldoc -f map :)
�� map � grep �� , �� .

�� defined �� ? (rookie)

Wed, 13 Aug 2008 05:42:52 GMT

>�� grep

�ݣ �� .
�� undef �� ?
�� undef ($a, $b, $c) �� :-(

�� defined �� ? (rookie)

Wed, 13 Aug 2008 05:16:40 GMT

>�� 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

��, �� , �� .
��

�� defined �� ? (angra)

Wed, 13 Aug 2008 02:41:01 GMT

�� 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

�� defined �� ? (qq)

Tue, 12 Aug 2008 17:40:57 GMT

>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;

�� defined �� ? (arturpub)

Tue, 12 Aug 2008 16:04:01 GMT

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

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

�� grep/map

��, �� List::Util ��

OpenForum RSS: ��� ��������� �� defined ����� ��������� ����������?

��� ��������� �� defined ����� ��������� ����������? (angra)

��� ��������� �� defined ����� ��������� ����������? (rookie)

��� ��������� �� defined ����� ��������� ����������? (rookie)

��� ��������� �� defined ����� ��������� ����������? (angra)

��� ��������� �� defined ����� ��������� ����������? (qq)

��� ��������� �� defined ����� ��������� ����������? (arturpub)

OpenForum RSS: �� defined �� ?

�� defined �� ? (angra)

�� defined �� ? (rookie)

�� defined �� ? (rookie)

�� defined �� ? (angra)

�� defined �� ? (qq)

�� defined �� ? (arturpub)