2010-03-15 全フィールドに対して(株)変換する メモ 全フィールドに対して(株)変換する コードはsjis foreach $key ( keys( %in ) ) { $in{$key} =~ s/㈱/(株)/ig; }