2008年07月14日23:37 Perl perlの正規表現で全角文字にマッチさせるには? 今日はperlで正規表現の話です。まずは実際のコードを見てください。 #!/usr/bin/perl use strict; use warnings; use utf8; my $data = 'あ 1245 aa気'; if ($data =~ /^(\w)(\s)(\d{4})(\s)(\w{3})$/) { print "match\n"; } このif条件ってマッチすると思いますか??実はマッチするんです!!�堯�゚Д゚) これがマッチするのは use utf8; しているためです。use utf8; すると内部的にはutf8フラグが立てられ、スクリプトがUTF-8で記述されていることを宣言します。その結果、日本語のような多バイト文字であっても半角文字であっても、1文字は1文字としてカウ