Спасибо, ну во всяком случае
my $a;
if ( length($a) == 0 ) {
print 'test2';
}
лучше, чем
my $a;
if ( $a) {
print 'test2';
}
да, но является ли эквивалентом запись
my $a;
if ( length($a) > 0 ) {
print 'test2';
}
if ( defined $a ) {
print 'test3';
}
??
13.12.2011, 12:51, "Mons Anderson" <[email protected]>:
> а если 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
--
Nikolay Mishin
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
