а если 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 <[email protected]> написал: >> о, нереально, спасибо >> >> 11.12.2011, 13:14, "Denis Evdokimov" <[email protected]>: >>> if ( defined $var && length $var ) { >>> print 'ok'; >>> } >>> >>> -- >>> Moscow.pm mailing list >>> [email protected] | http://moscow.pm.org >> >> -- >> Nikolay Mishin >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
