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

[Nikolay Mishin]

хорошо
 if (length($var)>0){} 
перепишем
if ( length( !defined $var ? '' : $var ) > 0 ) {
    print 'ok';
}
else {
    print 'not defined';
}




09.12.2011, 19:15, "Denis Evdokimov" <evdokimov.denis на gmail.com>:
>> if ($var){} - кричать ошибку, а то можно много где накосячить, если эта строка равна '0'
> Это уж совсем не перловое поведение
>
>> if (length($var)>0){} валидный
> Какой же это валидный код... а если $var=undef;
> а если $var=0;
>
>> вставить if (a & b){} он не дал и, думаю, это очень правильно
> Заодно запретить
> if (a + b){}
> и прочие операторы в условиях
>
>> по идее в warning или perlcritic это тоже можно было прописать
> perl -we'if(1 && $a=3){}'
> Found = in conditional, should be == at -e line 1.
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin