[Moscow.pm] AND, & ,&& или история моих багов

[Mons Anderson]

а если no warnings 'uninitialized' или use uni::perl

say "ok" if length $var;

и на defined проверять незачем.
length(undef) == 0

On 12.12.2011, at 17:20, Андрей П. Ковбович wrote:

> say 'ok' if defined $var and length $var;
> 
> 11 декабря 2011 г. 20:21 пользователь Nikolay Mishin <mi на ya.ru> написал:
>> о, нереально, спасибо
>> 
>> 11.12.2011, 13:14, "Denis Evdokimov" <evdokimov.denis на gmail.com>:
>>> if ( defined $var && length $var ) {
>>>    print 'ok';
>>> }
>>> 
>>> --
>>> Moscow.pm mailing list
>>> moscow-pm на pm.org | http://moscow.pm.org
>> 
>> --
>> Nikolay Mishin
>> --
>> Moscow.pm mailing list
>> moscow-pm на pm.org | http://moscow.pm.org
> -- 
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org