use encodingによって正規表現の結果が変わる？

質問

お世話になります。
webシステムで、画面入力値のチェックをperlで行っているのですが、
今回、perlのバージョンアップ対応を行っており、ソース修正をしたところ、以下のような現象に悩まされて困っております。
（本当のソースはもっと長いのですが、以下の現象により入力チェックが正常に動作しないという点までは突き止めました。）

バージョン
perl v5.8.0
os Red Hat Linux release 9

現象
use encodingが指定されていると、正規表現の$が効かないようです。

ソースと実行結果１
#!/usr/bin/perl
#use encoding "euc-jp";
if ('apple' =~ /e$/) {
print ("match\n");
} else {
print ("unmatch\n");
}
このときは match と表示されます。

ソースと実行結果２
#!/usr/bin/perl
use encoding "euc-jp";
if ('apple' =~ /e$/) {
print ("match\n");
} else {
print ("unmatch\n");
}
このときは、unmatch と表示されます。

対処方法のヒントだけでも頂けると助かります。
（他の質問を検索してみましたが、同様なものを見つけることができませんでした。）
もしかして、perlのバグなのでしょうか？

回答No.1

tamahiro22 · ベストアンサー

対処方法の回答ではありませんが、
Perl v5.8.8 だと、どちらの結果も match になります。
やはり Perl v5.8.0 のバグかもしれませんね。

お礼

返事が遅れてすみません。
やはり、5.8.0のバグなのでしょうか？
perl5.6.0でも再現しませんでした。

ちなみに、追加検証した結果、「固定値と$の組み合わせ」が駄目だということがわかりました。
ですので、上記でeを[]で囲めばマッチしました。(笑)

#!/usr/bin/perl
use encoding "euc-jp";
if ('apple' =~ /[e]$/) {
print ("match\n");
} else {
print ("unmatch\n");
}

では、また、わからないことがありましたらよろしくお願いします。