かんたんPerl 第11章 正規表現

おなじみ正規表現

• とはいえ、全くしらなかったのがこれ

use 5.012;
use warnings;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';

while(<DATA>){
    chomp;
    say $_ if /\d/;
}

__DATA__
1
2
3
０  #全角のゼロ

• なんと、これ実行すると「０」も表示される。
• まさか、全角の数字まで \d 文字クラスの数字にマッチするとは・・・
• ただし、 utf-8 プラグマ利用時
  • これは、Unicodeの文字プロパティを使った文字クラスになるため。
  • /\d/a とすることで、半角数字にマッチ、とする事が出来る。