Kan-Ru Chen's Weblog

Big5 檔名轉 UTF-8

今天完成了...
把download/music跟share下的檔案都轉換成功
不過沒有遞回轉換的功能, 要每個目錄自己轉

ex.

#!/usr/bin/perl
opendir(DIR, "./");
@dir=readdir(DIR);
foreach(@dir) {
    $file = `echo $_|iconv -f big5 -t utf8` ;
    chomp $file;
    rename("$_","$file");
}
closedir(DIR);