正規表現部をちょっと書き換えてみた

多くの場合、洗濯したい全角→半角はこんなものだったので、「tr」を使って書き換えてみた。それと、ついでに半角カッコ『()』も訂正。


foreach my $line (@comp){
chomp ($line);
$line =~ tr/Ａ-Ｚａ-ｚ０-９/A-Za-z0-9/;
$line =~ tr/()/（）/;
$line =~ s/^[ 　]+//g;
$line =~ s/(\d)，(?=(\d\d\d))/$1,/g;
$line =~ s/(\d+)．(?=(\d+))/$1./g;
$line =~ s/，/、/g;
$line = $line."\n";
}


動いているのでOKとしましょう。
『tr』便利ですね。コードの連なった一部をリストにして変換できる。
こういう仕組みを最初に考えたプログラマーって凄いな。
名も無い人たちの知恵の結集で遊ばせてもらってるわけで、
ありがたいことです。