jp_mv.pl

#!/usr/bin/perl
#this script will rename all subfolders to web-safe names (using romaji)
{
    open( $fh, "-|", "find", ".", "-type", "d" );
    while (my $line = <$fh>) {
        chomp($line);
        $line =~ s,^\./,,;
        my $newname = $line;
        my $oldname = $line;
        #katakana
        $newname =~ s/キャ/kya/g;
        $newname =~ s/ギャ/gya/g;
        $newname =~ s/キュ/kyu/g;
        $newname =~ s/ギュ/gyu/g;
        $newname =~ s/キョ/kyo/g;
        $newname =~ s/ギョ/gyo/g;
        $newname =~ s/シャ/sha/g;
        $newname =~ s/ジャ/ja/g;
        $newname =~ s/シュ/shu/g;
        $newname =~ s/ジュ/juy/g;
        $newname =~ s/ショ/sho/g;
        $newname =~ s/ジョ/jo/g;
        $newname =~ s/チャ/cha/g;
        $newname =~ s/ヂャ/ja/g;
        $newname =~ s/チュ/chu/g;
        $newname =~ s/ヂュ/ju/g;
        $newname =~ s/チョ/cho/g;
        $newname =~ s/ヂョ/jo/g;
        $newname =~ s/ニャ/nya/g;
        $newname =~ s/ニュ/nyu/g;
        $newname =~ s/ニョ/nyo/g;
        $newname =~ s/ヒャ/hya/g;
        $newname =~ s/ビャ/bya/g;
        $newname =~ s/ピャ/pya/g;
        $newname =~ s/ヒュ/hyu/g;
        $newname =~ s/ビュ/byu/g;
        $newname =~ s/ピュ/pyu/g;
        $newname =~ s/ヒョ/hyo/g;
        $newname =~ s/ビョ/byo/g;
        $newname =~ s/ピョ/pyo/g;
        $newname =~ s/ミャ/mya/g;
        $newname =~ s/ミュ/myu/g;
        $newname =~ s/ミョ/myo/g;
        $newname =~ s/リャ/rya/g;
        $newname =~ s/リュ/ryu/g;
        $newname =~ s/リョ/ryo/g;
        $newname =~ s/ア/a/g;
        $newname =~ s/イ/i/g;
        $newname =~ s/ウ/u/g;
        $newname =~ s/エ/e/g;
        $newname =~ s/オ/o/g;
        $newname =~ s/カ/ka/g;
        $newname =~ s/ガ/ka/g;
        $newname =~ s/キ/ki/g;
        $newname =~ s/ギ/gi/g;
        $newname =~ s/ク/ku/g;
        $newname =~ s/グ/gu/g;
        $newname =~ s/ケ/ke/g;
        $newname =~ s/ゲ/ge/g;
        $newname =~ s/コ/ko/g;
        $newname =~ s/ゴ/go/g;
        $newname =~ s/サ/sa/g;
        $newname =~ s/ザ/za/g;
        $newname =~ s/シ/shi/g;
        $newname =~ s/ジ/ji/g;
        $newname =~ s/ス/su/g;
        $newname =~ s/ズ/zu/g;
        $newname =~ s/セ/se/g;
        $newname =~ s/ゼ/ze/g;
        $newname =~ s/ソ/so/g;
        $newname =~ s/ゾ/zo/g;
        $newname =~ s/タ/ta/g;
        $newname =~ s/ダ/da/g;
        $newname =~ s/チ/chi/g;
        $newname =~ s/ヂ/ji/g;
        $newname =~ s/ツ/tsu/g;
        $newname =~ s/ヅ/dzu/g;
        $newname =~ s/テ/te/g;
        $newname =~ s/デ/de/g;
        $newname =~ s/ト/to/g;
        $newname =~ s/ド/do/g;
        $newname =~ s/ナ/na/g;
        $newname =~ s/ニ/ni/g;
        $newname =~ s/ヌ/nu/g;
        $newname =~ s/ネ/ne/g;
        $newname =~ s/ノ/no/g;
        $newname =~ s/ハ/ha/g;
        $newname =~ s/バ/ba/g;
        $newname =~ s/パ/pa/g;
        $newname =~ s/ヒ/hi/g;
        $newname =~ s/ビ/bi/g;
        $newname =~ s/ピ/pi/g;
        $newname =~ s/フ/fu/g;
        $newname =~ s/ブ/bu/g;
        $newname =~ s/プ/pu/g;
        $newname =~ s/ヘ/he/g;
        $newname =~ s/ベ/be/g;
        $newname =~ s/ペ/pe/g;
        $newname =~ s/ホ/ho/g;
        $newname =~ s/ボ/bo/g;
        $newname =~ s/ポ/po/g;
        $newname =~ s/マ/ma/g;
        $newname =~ s/ミ/mi/g;
        $newname =~ s/ム/mu/g;
        $newname =~ s/メ/me/g;
        $newname =~ s/モ/mo/g;
        $newname =~ s/ヤ/ya/g;
        $newname =~ s/ユ/yu/g;
        $newname =~ s/ヨ/yo/g;
        $newname =~ s/ラ/ra/g;
        $newname =~ s/リ/ri/g;
        $newname =~ s/ル/ru/g;
        $newname =~ s/レ/re/g;
        $newname =~ s/ロ/ro/g;
        $newname =~ s/ワ/wa/g;
        $newname =~ s/ヰ/wu/g;
        $newname =~ s/ヱ/we/g;
        $newname =~ s/ヲ/wo/g;
        $newname =~ s/ン/n/g;
        #hiragana
        $newname =~ s/きゃ/kya/g;
        $newname =~ s/ぎゃ/gya/g;
        $newname =~ s/きゅ/kyu/g;
        $newname =~ s/ぎゅ/gyu/g;
        $newname =~ s/きょ/kyo/g;
        $newname =~ s/ぎょ/gyo/g;
        $newname =~ s/しゃ/sha/g;
        $newname =~ s/じゃ/ja/g;
        $newname =~ s/しゅ/shu/g;
        $newname =~ s/じゅ/juy/g;
        $newname =~ s/しょ/sho/g;
        $newname =~ s/じょ/jo/g;
        $newname =~ s/ちゃ/cha/g;
        $newname =~ s/ぢゃ/ja/g;
        $newname =~ s/ちゅ/chu/g;
        $newname =~ s/ぢゅ/ju/g;
        $newname =~ s/ちょ/cho/g;
        $newname =~ s/ぢょ/jo/g;
        $newname =~ s/にゃ/nya/g;
        $newname =~ s/にゅ/nyu/g;
        $newname =~ s/にょ/nyo/g;
        $newname =~ s/ひゃ/hya/g;
        $newname =~ s/びゃ/bya/g;
        $newname =~ s/ぴゃ/pya/g;
        $newname =~ s/ひゅ/hyu/g;
        $newname =~ s/びゅ/byu/g;
        $newname =~ s/ぴゅ/pyu/g;
        $newname =~ s/ひょ/hyo/g;
        $newname =~ s/びょ/byo/g;
        $newname =~ s/ぴょ/pyo/g;
        $newname =~ s/みゃ/mya/g;
        $newname =~ s/みゅ/myu/g;
        $newname =~ s/みょ/myo/g;
        $newname =~ s/りゃ/rya/g;
        $newname =~ s/りゅ/ryu/g;
        $newname =~ s/りょ/ryo/g;
        $newname =~ s/あ/a/g;
        $newname =~ s/い/i/g;
        $newname =~ s/う/u/g;
        $newname =~ s/え/e/g;
        $newname =~ s/お/o/g;
        $newname =~ s/か/ka/g;
        $newname =~ s/が/ka/g;
        $newname =~ s/き/ki/g;
        $newname =~ s/ぎ/gi/g;
        $newname =~ s/く/ku/g;
        $newname =~ s/ぐ/gu/g;
        $newname =~ s/け/ke/g;
        $newname =~ s/げ/ge/g;
        $newname =~ s/こ/ko/g;
        $newname =~ s/ご/go/g;
        $newname =~ s/さ/sa/g;
        $newname =~ s/ざ/za/g;
        $newname =~ s/し/shi/g;
        $newname =~ s/じ/ji/g;
        $newname =~ s/す/su/g;
        $newname =~ s/ず/zu/g;
        $newname =~ s/せ/se/g;
        $newname =~ s/ぜ/ze/g;
        $newname =~ s/そ/so/g;
        $newname =~ s/ぞ/zo/g;
        $newname =~ s/た/ta/g;
        $newname =~ s/だ/da/g;
        $newname =~ s/ち/chi/g;
        $newname =~ s/ぢ/ji/g;
        $newname =~ s/つ/tsu/g;
        $newname =~ s/づ/dzu/g;
        $newname =~ s/て/te/g;
        $newname =~ s/で/de/g;
        $newname =~ s/と/to/g;
        $newname =~ s/ど/do/g;
        $newname =~ s/な/na/g;
        $newname =~ s/に/ni/g;
        $newname =~ s/ぬ/nu/g;
        $newname =~ s/ね/ne/g;
        $newname =~ s/の/no/g;
        $newname =~ s/は/ha/g;
        $newname =~ s/ば/ba/g;
        $newname =~ s/ぱ/pa/g;
        $newname =~ s/ひ/hi/g;
        $newname =~ s/び/bi/g;
        $newname =~ s/ぴ/pi/g;
        $newname =~ s/ふ/fu/g;
        $newname =~ s/ぶ/bu/g;
        $newname =~ s/ぷ/pu/g;
        $newname =~ s/へ/he/g;
        $newname =~ s/べ/be/g;
        $newname =~ s/ぺ/pe/g;
        $newname =~ s/ほ/ho/g;
        $newname =~ s/ぼ/bo/g;
        $newname =~ s/ぽ/po/g;
        $newname =~ s/ま/ma/g;
        $newname =~ s/み/mi/g;
        $newname =~ s/む/mu/g;
        $newname =~ s/め/me/g;
        $newname =~ s/も/mo/g;
        $newname =~ s/や/ya/g;
        $newname =~ s/ゆ/yu/g;
        $newname =~ s/よ/yo/g;
        $newname =~ s/ら/ra/g;
        $newname =~ s/り/ri/g;
        $newname =~ s/る/ru/g;
        $newname =~ s/れ/re/g;
        $newname =~ s/ろ/ro/g;
        $newname =~ s/わ/wa/g;
        $newname =~ s/ゐ/wu/g;
        $newname =~ s/ゑ/we/g;
        $newname =~ s/を/wo/g;
        $newname =~ s/ん/n/g;
        $newname =~ s/ー/-/g;
        #need more safe symbols
        $newname =~ s/[^a-zA-Z0-9()\[\]@.,]+/_/g;
        rename $oldname,$newname;
    }
}