初心者的質問。if文の判定の式が長くなりすぎるのはどーすりゃいいんだ。

Perl

本当にどうしようもないことなのかもしれないけど、なんだかなぁと思ったので書いておく。

  • $data{'To'}にメールアドレスが入っている。
  • メールアドレスのドメインによって処理を変更したい

という処理で、まぁifを使えばいいのは分かるのだが…。

  $_ = $data{'To'};
    if ((/\@yahoo\.co\.jp/gi) || (/\@msn\.com/gi) || (/\@hotmail\.com/gi) || (/\@hotmail\.co\.jp/gi)) {

　＜なんかの処理＞

    }

これの「\@yahoo\.co\.jp」「\@msn\.com」がどんどん増やしていこうと思うとなんだかソースが汚くなってしまう。

いっぱい数が増えても大丈夫で簡単で綺麗な書き方ってあるのかしらん。配列あたりなのかね。