以前用perl 写了个脚本，把gb2312的编码都转换成utf-8，很安逸

引用:

原帖由 雾桑 于 2009-11-25 09:19 发表

合一起10G左右吧。。。怎么传


谢谢！回头试试！



爆炸求！

给你这个试试看，这个是以前在freebsd下用的，现在盒子没了，我也不用了，只支持gb2312的编码转utf-8，你可以自己改一下，
觉得自己判断编码太麻烦，所以就没做，呵呵。
。。。不支持zip附件。。
我就献丑贴出来了

#!/usr/bin/perl

use MP3::Tag;
use Encode;
use Getopt:ong;

GetOptions (
                "f=s"        =>        \$opt_f,
                "t=s"        =>        \$opt_t,
                "u"                =>        \$opt_u,
                "help"        =>        \&usage);

usage && exit 1 if (!@ARGV);

#$opt_t = "utf-8";
#$opt_f = "gb2312";

@key = qw (title track artist album comment year genre);

foreach $filename (@ARGV) {
        if (!($filename =~ /\.mp3$/i)) {
                print "$filename is not mp3 file\n\n";
                next;
                }
        else {
                $mp3 = MP3::Tag->new ($filename);
                print "filename:\t$filename\n";
                $info = $mp3->autoinfo();
                foreach $i (@key) {
                        $info->{$i} = encode($opt_t, decode($opt_f, $info->{$i}));
                        print "$i\t\t$info->{$i}\n";
                }
                print "\n";
                $opt_u && $mp3->update_tags($info);
        }
}

sub usage {
        print "mp3tag.pl -f enc -t enc\n";
}