А
if (($FORM{SITY} && $FORM{ACCOUNT} && $FORM{SYSTEM} && $FORM{DATE_FROM} && $FORM{DATE_BY}) eq '') {Size: a a a
2021 May 26
А
вот оригинал, не похоже что тут 0 где-то может проскочить
А
похоже что это борьба с пустыми строками с фронта 🙂
АГ
а если так:
if (($FORM{SITY} . $FORM{ACCOUNT} . $FORM{SYSTEM} . $FORM{DATE_FROM} . $FORM{DATE_BY}) eq '')АГ
ну или join('', @..)
АГ
от среза хеша
А
ну можно и join '', grep $_, @...
АГ
только я бы ещё тогда прошёлся по ним регуляркой, чтобы поудалять все лишние пробелы
А
чтобы undef выкинуть из массива
АГ
А зачем его выкидывать? Если undef == ''
АГ
Опять таки, разве grep только на undef проверяет? В таком случае он выкинет все undef, 0 и '' ибо все равны без defined)
А
я думаю так, что как только собираеться какая-то строка для какой-то проверки, то рано или поздно будет соблазн эту строку как-то задействовать в каком-то выводе и соответственно заранее и пытаюсь все фильтровать, потому что сегодня строка join '', а завтра станет join '|'
А
понятно что можно в grep напихать кучу условий, и потом просто сделать scalar @res, вместо join '' и сравнения
А
а вообще по большому счету, я бы просто рекомендовал взять валидатор полей формы, с типами и прочими плюшками, а не делать это руками
АГ
Да, лучше какой-нибудь HTML::FormHandler с его Validate использовать. Но тут уже на усмотрение владельцев кода)
АК
О кстати неплохо!
Но я бы такое делал, только если бы был абсолютно уверен, что все поля существуют, и что они строки.
Но я бы такое делал, только если бы был абсолютно уверен, что все поля существуют, и что они строки.
АК
exists && defined ?
DF
Какую только наркоманию не придумают чтобы List::Util::all не юзать
DF
DF
какая разница строки-не строки? Там проблема может быть только если в значениях лежит пустой массив или хэш, тогда будет работать не как задумано