にひりずむ::しんぷる - マルチなバイトをシングルに

音楽CDのファイル名に全角英数字とか全角記号が含まれているのが、無性に腹が立ったので、変換スクリプトをでっちあげてみた。 ぶっちゃけJcode.pmに全てお任せなだけなんですが。 #! C:\Perl\bin\perl use strict; use warnings; use Jcode; # 変換ワードの定義 my $m = '０-９Ａ-Ｚａ-ｚ’（） ＃＄％＆'; my $s = '0-9A-Za-z\'() #$%&'; # 引数確認 unless ($ARGV[0]) { (my $basename = $0) =~ s#.*[\\/]##; print "Usage : $basename directory\n"; exit 0; } # 対象のディレクトリのファイル名及びディレクトリ名を変更する opendir my $fh, $ARGV[0] or die "not op