[memo][perl] フラグのチェックについて少々

2008.3.24(月) 4:21   タグ: 覚え書き, Perl

個人的気づき的メモ.

フォームの項目チェックなんかで,

  1. 各項目をチェックして,問題があればエラーなフラグを立てる
  2. すべてのフラグをチェックして,一つでも立っていれば,結果はエラー

みたいなことやりますよね?

そんなとき,フラグの変数を

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で無問題) を得られるなぁ,と思いました.

以上です.

この記事へのトラックバック

この記事へのトラックバックはまだありません.


この記事へのコメント »

この記事へのコメントはまだありません.

コメント RSS

コメントをどうぞ


ぶろぐ内検索

WCAN 2008 Autumn

wcan2008autumn

DeLLa.JS

細々公開ちゅう

  • ごよてい?
  • にこぐらふ
  • twitomonitor [ついともにた]
  • issm's ...
  • 今さら攻略 スーパーマリオブラザーズ 2

I'm doing...

Loading...

最近のエントリ

最近のトラックバック

最近のコメント

タグ

月別

数値いくつか

  • issmの泳いだ距離
  • issmの100m個メタイム(秒)
  • issmのBMIとissmの体脂肪率
  • issmの最高血圧とissmの最低血圧

スポンサード リンク

メタ情報