<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_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>