(DTPtechNote:267) rename 半角カナ->全角カナ

[市川せうぞー <anonymous at unknown-host>]

ちょっとリクエストがあったので書きました。
半角カナのファイル名を全角カナになおします。
全角カナを半角にするのも、この逆の手順でできますが、半角ファイル名を推奨しないので、書きたくありません（笑）
MacJPerlでやってます。
Mac OS X環境なら、また別のやり方もあるんでしょうけど。ターミナル経由のほうがゼンゼン速いはず。
#いまそんなことをやってる場合じゃないというハナシも。。。（爆）


on open of theFiles
	tell application "Finder"
		repeat with i in theFiles
			set my_path to i as file specification
			set old_name to name of my_path
			set Perl_script to "
$_ = '" & old_name & "';
%dakuon = ('ウ゛', 'ヴ', 'ガ', 'ガ', 'ギ', 'ギ', 'グ', 'グ', 'ゲ', 'ゲ', 'ゴ', 'ゴ', 'ザ', 'ザ', 'ジ', 'ジ', 'ズ', 'ズ', 'ゼ', 'ゼ', 'ゾ', 'ゾ', 'ダ', 'ダ', 'ヂ', 'ヂ', 'ヅ', 'ヅ', 'デ', 'デ', 'ド', 'ド', 'バ', 'バ', 'ビ', 'ビ', 'ブ', 'ブ', 'ベ', 'ベ', 'ボ', 'ボ', 'パ', 'パ', 'ピ', 'ピ', 'プ', 'プ', 'ペ', 'ペ', 'ポ', 'ポ');
s/([ウカキクケコサシスセソタチツテトハヒフヘホ]゛|[ハヒフヘホ]゜)/$dakuon{$1}/g;
tr/ヲ-ン/ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン/;
&MacPerl'Reply($_);
"
			tell application "MacJPerl"
				set new_name to (Do Script Perl_script)
			end tell
			
			set name of my_path to new_name
		end repeat
	end tell
end open