[xyzzy:08774] Q: Perl 5.8.0 cp932 regexp match?
- Subject: [xyzzy:08774] Q: Perl 5.8.0 cp932 regexp match?
- From: fukushi <fukushi@xxxxxxxxxxxxxxxxxx>
- X-mailer: Mew version 1.93 on Emacs 19.28 / Mule 2.3 (SUETSUMUHANA)
ふくしです。
たまに出てきて質問で申し訳ありません。
今日から ActivePerl5.8.0 を導入しました。
OS は Windows xp Professional です。
狙いは cp932 のコードを正規表現で使うものです。
以下のスクリプトはすべてcp932で書いています。
---
# ひらがなを含む行を検索 -- 動作しない
use encoding 'cp932';
while (<DATA>) {
print if /[ぁ-ん]/;
}
__DATA__
こんにちは is hello
さようなら is goodbye
All English
---
とやってみましたが1行も引っ掛かりません。
どうすればいいのでしょうか。
perldoc を1日逍遥しましたが探し方が悪くてうまくみつかりません。
よろしくお願いします、、。
--
fukushi