_ perl での正規表現.

マッチを行いたかった.　ドメイン名で.

サブドメインも含めて処理したいので、後方一致で行う。

普通に変数に入れて

_ $check_domain =~ /$list_domain$/

としたらなぜかマッチしない・・・・・

外部ファイルのドメインリストを配列に入れて・・・・をぉ、改行コードがじゃまだな.

_ chomp($list_domain)

とするも、上手くいかず・・・・・うむ、「ドット」が悪さをしている.　特殊文字なんだよネ.

よし、事前に URL Encode してしまおう.　これで・・・・・なに？！

余分なモノが付いているではないか.　うぬぬ、\r とな？！

仕方あるまい.　こうなれば更に事前に

_ $list_domain =~ /\n//

_ $list_domain =~ /\r//

で、どうだ.　・・・・・・やっと通ったヨ(T_T)

外部ファイルで一括管理、をするだけなのに、環境の所為で遠回りしたなぁ.