sironekotoroの日記

Perl と Mac の初心者の備忘録

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

おなじみ正規表現

  • とはいえ、全くしらなかったのがこれ
use 5.012;
use warnings;
use utf8;
binmode STDOUT, ':encoding(UTF-8)';

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

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