blog.nomadscafe.jp

フォームから送信されたデータのチェックをするモジュールはCPANに二つあります。Data::FormValidatorと加藤さんのFormValidator::Simpleがそれ。いままでガリガリと書いていた部分をこれを用いて楽ができないかと試し中。

メールアドレスとパスワードを入れるような以下の登録画面があって、

<form>
メールアドレス:<input name="mail" type="text" id="mail" size="20" /><br /> 
パスワード:<input name="password" type="password" id="password" size="20" /><br />
もう一度パスワード:<input name="password_confirmation" type="password" id="password_confirmation" size="20" /><br />
パスワードは半角英数字5文字〜32文字
</form>

この入力をチェックする場合、

Data::FormValidatorでは、

use CGI;
use Data::FormValidator;
use Data::FormValidator::Constraints qw(:matchers);#Podでは「:all」だけどそれだと動かない
my $q=CGI->new;
my $dfv_profile={
	#mail passwordが必須
	required=>[qw/mail password/],
	#前後のスペースを除く
	filters=>['trim'],
	#パスワードの確認
	dependency_groups=>{
		password_group=>[qw/password password_confirmation/],
	},
	#入力確認
	constraint_methods=>{
		password=>qr/^[A-Za-z0-9]{5,32}$/,
		#パスワードの確認
		password_confirmation =>[{
			constraint=>sub{
				my $dfv=shift;
				return ($_[0] eq $_[1]) ? 1 : 0;
			},
			params=>[qw/password password_confirmation/]
		}],
		mail=>match_email()
	},
	#メッセージ
	msgs=>{
		prefix=>'dfv_err_',
		format=>'<span class="dfv_err">%s</span>',
		invalid=>"入力が正しくありません",
		missing=>"入力がありません"
	}
};
#チェック
my $results = Data::FormValidator->check($q,$dfv_profile);

長いけど、こうなる。

FormValidator::Simpleを使うと、もうすこし短く

use CGI;
use FormValidator::Simple;
my $fvs_profile=[
	mail=>['NOT_BLANK','EMAIL'],
	password=>['NOT_BLANK','ASCII',['LENGTH',5,32]],
	{password_confirmation=>[qw/password password_confirmation/]}=>['DUPLICATION']
];
#チェック
my $results = FormValidator::Simple->check($q,$fvs_profile);

と、書ける。上(Data::FormValidator)と比べるとコンパクトでわかりやすい。
FormValidator::SimpleはSledge::Plugin::Validatorを参考に作られている。作者が日本人という事もあって、日本語対応もプラグインでFormValidator::Simple::Plugin::Japaneseが提供されていてなかなか良さそう。プラグインの作成も簡単にできる。

<form>
メールアドレス:<input name="mail" type="text" id="mail" size="20" />[% results.msgs.dfv_err_mail %]<br /> 
パスワード:<input name="password" type="password" id="password" size="20" />[% results.msgs.dfv_err_password %]<br />
もう一度パスワード:<input name="password_confirmation" type="password" id="password_confirmation" size="20" />[% results.msgs.dfv_err_password_confirmation %]<br />
パスワードは半角英数字5文字〜32文字
</form>

[% IF results.has_invalid || results.has_missing %]
<ul>
[% IF result.missing('mail') %]
<li>メールアドレスの入力がありません</li>
[% END %]
[% IF result. invalid('mail') %]
<li>メールアドレスが正しくありません</li>
[% END %]
[% IF result.missing('password') %]
<li>パスワードの入力がありません</li>
[% END %]
[% IF result. invalid('password','ASCII') %]
<li>パスワードは半角英数字のみ使用可能です</li>
[% END %]
[% IF result. invalid('password','LENGTH') %]
<li>パスワードは5文字から32文字にしてください</li>
[% END %]
...
[% END %]
<form>
...