■[PR][]
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
| この記事のURL
■選択一致を使う[自サイトのこと]
この前の掲示板の書き込み規制の件で、Perlの文法について、もう少し調べた。
if ($host =~ 'ホスト名の部分文字列') でも、文字列に正規表現が使えた。となると、正規表現かどうかで分けて書く必要性はあまりなさそうだ。
それと、条件を書き並べるよりも、選択一致を使ったほうがスマートだと思った。つまり、
if ($host =~ /文字列1|文字列2|文字列3/)
というような。
if文が長くなるのはよろしくないので、適当な変数に入れておくとすっきりする。
$nghost = "foo93[0-4]\.bar\.ne\.jp|"
. "foo-[1-3]\d\.bar\.net|"
. "foo3[7-9]\.bar\d[1-5]\.com";
if ($host =~ /$nghost/) {
&error('ホスト規制','このホストからは投稿できません.');
}
Perlは手軽で便利だな。もっと使う機会を増やして慣れておきたい。
PR