FormValidator::LazyWay で検証ルールをまとめよう
0 likes1,584 views
This document contains configuration details for form validation using the FormValidator::LazyWay module in Perl. The configuration includes validation rules for email and password fields, language and error message labels, and examples of running validation checks on query parameters and returning error results. Validation rules are defined for email format, password length and character set. Error messages can be customized and parameters can be passed directly to the validation check.
![my $config = {
rules => [ 'Email', 'String' ],
setting => {
strict => {
email => {
rule => ['Email#email']
},
password => {
rule => [
{ 'String#length' => {
'min' => '4',
'max' => '12'
}
},
'String#ascii'
]
},
}
},
lang => 'ja',
labels => {
ja => {
email => ' ',
password => ' '
}
},
};](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-25-320.jpg)
![use FormValidator::LazyWay;
my $fv = FormValidator::LazyWay->new($config);
my $result = $fv->check($q, {
required => [qw/nickname email password/],
optional => [qw/message/]
});](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-26-320.jpg)
![my $result = $fv->check($q, {
required => [qw/title/],
optional => [qw/body/]
});
my $result = $fv->check($q, {
optional => [qw/title body/]
});](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-27-320.jpg)
![my $result = $fv->check($q, {
required => [qw/nickname email password/],
optional => [qw/message/]
});
if ( $result->has_error ) {
print Dumper $result->error_message;
# output
#$VAR1 = {
# 'email' => ' ',
# 'password' => ' 4 12 '
#};
}
else {
# OK!
print Dumper $result->valid;
}](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-28-320.jpg)
![setting: my $result = $fv->check( $cgi,
strict: { required => [qw/email/],
email: level => {
email => 'loose'
rule:
}
- Email#email
}
loose: );
email:
rule:
- Email#email_loose](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-29-320.jpg)
![my $result = $fv->check($q, {
required => [qw/nickname email password/],
optional => [qw/message/]
});
if ( $result->has_error ) {
print Dumper $res->error_message;
}
# DateTime
print $result->valid->{date};](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-35-320.jpg)
![my $result = $fv->check($q, {
required => [qw/nickname email password/],
optional => [qw/message/]
});
$result->custom_invalid(
'email_not_unique',
' '
);
if ( $res->has_error ) {
print Dumper $res->error_message;
}](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-36-320.jpg)
![my $wants_to_validate = {
nickname => 'vkgtaro',
email => 'vkg.taro@gmail.com',
password => 'mypass',
};
my $result = $fv->check($q, {
required => [qw/nickname email password/],
optional => [qw/message/],
custom_parameters => $wants_to_validate,
});](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-37-320.jpg)
![messages :
ja :
rule_message : __field__ __rule__
rule :
Email#email :
String#length : $_[min] $_[max]](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-44-320.jpg)
![messages :
ja :
rule_message : __field__ __rule__
rule :
Email#email :
String#length : $_[min] $_[max]](https://image.slidesharecdn.com/formvalidator-lazyway-090911084838-phpapp01/85/FormValidator-LazyWay-45-320.jpg)
FormValidator::LazyWay で検証ルールをまとめよう
- 25. my $config = { rules => [ 'Email', 'String' ], setting => { strict => { email => { rule => ['Email#email'] }, password => { rule => [ { 'String#length' => { 'min' => '4', 'max' => '12' } }, 'String#ascii' ] }, } }, lang => 'ja', labels => { ja => { email => ' ', password => ' ' } }, };
- 26. use FormValidator::LazyWay; my $fv = FormValidator::LazyWay->new($config); my $result = $fv->check($q, { required => [qw/nickname email password/], optional => [qw/message/] });
- 27. my $result = $fv->check($q, { required => [qw/title/], optional => [qw/body/] }); my $result = $fv->check($q, { optional => [qw/title body/] });
- 28. my $result = $fv->check($q, { required => [qw/nickname email password/], optional => [qw/message/] }); if ( $result->has_error ) { print Dumper $result->error_message; # output #$VAR1 = { # 'email' => ' ', # 'password' => ' 4 12 ' #}; } else { # OK! print Dumper $result->valid; }
- 29. setting: my $result = $fv->check( $cgi, strict: { required => [qw/email/], email: level => { email => 'loose' rule: } - Email#email } loose: ); email: rule: - Email#email_loose
- 30. setting: regexp_map: '_id$': rule: - Number#integer
- 31. merge: date: format: "%04d-%02d-%02d" fields: - year - month - day strict: date: rule: - DateTime#date
- 34. setting: strict: date: filter: - Unify#hyphen rule: - DateTime#date fix: - DateTime#format: - '%Y-%m-%d'
- 35. my $result = $fv->check($q, { required => [qw/nickname email password/], optional => [qw/message/] }); if ( $result->has_error ) { print Dumper $res->error_message; } # DateTime print $result->valid->{date};
- 36. my $result = $fv->check($q, { required => [qw/nickname email password/], optional => [qw/message/] }); $result->custom_invalid( 'email_not_unique', ' ' ); if ( $res->has_error ) { print Dumper $res->error_message; }
- 37. my $wants_to_validate = { nickname => 'vkgtaro', email => 'vkg.taro@gmail.com', password => 'mypass', }; my $result = $fv->check($q, { required => [qw/nickname email password/], optional => [qw/message/], custom_parameters => $wants_to_validate, });
- 44. messages : ja : rule_message : __field__ __rule__ rule : Email#email : String#length : $_[min] $_[max]
- 45. messages : ja : rule_message : __field__ __rule__ rule : Email#email : String#length : $_[min] $_[max]