[memo][perl] フラグのチェックについて少々
個人的気づき的メモ．
フォームの項目チェックなんかで，
- 各項目をチェックして，問題があればエラーなフラグを立てる
- すべてのフラグをチェックして，一つでも立っていれば，結果はエラー
みたいなことやりますよね？
そんなとき，フラグの変数を
my $flg = {
a => 1,
b => 0,
c => 1,
};
のように宣言して，各項目のチェック後，
my $flg_error_result = eval join ‘&&’, values %$flg;
my $flg_error_result = eval join ‘||’, values %$flg;
とすれば，簡単に結果の値 （1でエラー，0で無問題） を得られるなぁ，と思いました．
以上です．
![twitomonitor [ついともにた]](http://www.iwa-ya.net/img/banner/twitomonitor.png "twitomonitor [ついともにた]")
