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);