Perlの正規表現で記号を削除

Perlの正規表現で記号を削除

別に正規表現でなくても良いのだが、文字列から記号を削除したい場合に、どのようなアプローチがあるの...概要を表示 別に正規表現でなくても良いのだが、文字列から記号を削除したい場合に、どのようなアプローチがあるのか、検討してみた。 便利そうなUnicodeのブロックを使ってみる ¥p{Latin}で数字となるが、 ローマ数字なども含んでいるので使えない sub nomalize { my $str = shift; $str =~ s/[^0-9０-９a-zA-Zａ-ｚＡ-Ｚ\p{Han}\p{Katakana}\p{Hiragana}]//g; return $str; }