<div dir="ltr"><div><div>Приветствую.<br><br></div><div>  Для полноты картины.<br></div><div><br></div>  Вот тут в соседнем чатике советую LIVR, <br><br>  <a href="https://metacpan.org/pod/distribution/Validator-LIVR/README.pod">https://metacpan.org/pod/distribution/Validator-LIVR/README.pod</a><br>  <a href="https://habrahabr.ru/post/246521/">https://habrahabr.ru/post/246521/</a><br><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-09-03 11:09 GMT+03:00 Konstantin S. Uvarin <span dir="ltr"><<a href="mailto:khedin@gmail.com" target="_blank">khedin@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div><div><div><div>Приветствую. <br><br></div><div>Может, подскажет кто модуль? Просьба не холиварить на тему "лучше-хуже", просто "огласите весь список" (с).<br></div><div><br> Хочу фильтр/валидатор/иное очистное сооружение для форм. Требования примерно такие: 
<br> <br>* инициализируем один раз, валидируем 100500 раз;<br>* на входе хеш параметр => строка;<br>* валидация параметра, как минимум, включает regexp, required =1|0 и дефолтное значение;<br>* на выходе всё, что выжило после валидации, или пусто, если не прошло валидацию что-то из required. (Если дохнет - тоже ок). Если какой-то мараметр мусор - он просто молча выкидывается;
<br>* опционально хеш с непрошедшими валидацию как второй return; 
<br>* опционально - strict mode, т.е. если есть лишние или хоть один параметр defined и провалил валидацию - нафиг;<br> <br>Т.е. псевдокод: 
<br>my $cleaner = My::Validator->( \%per_param_validation_<wbr>profile);
<br># much later
<br>my $safe_data = $cleaner->sanitize( \%evil_user_input );
<br>my ($safe_data, $failed_param_details) = $cleaner->sanitize( \%evil_user_input );<br><br></div>На CPAN-е валидаторов, ввв-валидаторов и пр., понятное дело, три дня греби лопатой - я не смог продраться. <br><br></div>Был один как мне нужно, только наоборот - <br></div>my $val = My::Validator->new( $query );<br></div>$val->check( \%profile );<br><br></div>Но я-то хочу закешировать правила и применять к разным инпутам, а не наоборот :) <br><br></div>Спасибо!<br><br>--<br></div>Konstantin S. Uvarin<br></div>
</blockquote></div><br></div>