tag_encoder.pl

# yuni 님이 작성하신 mac itunes 용 mp3 encoder
#!/opt/local/bin/perl5.10
use warnings;
use strict;
use MP3::Tag;
use Data::Dumper;
use Encode qw/encode decode/;

binmode STDOUT, ":utf8";

my $filename = shift @ARGV;

my $mp3 = MP3::Tag->new($filename);

my $info = $mp3->autoinfo();
my %ninfo;

foreach my $k (keys %$info) {
        my $v = $info->{$k};
        printf "%s : %s => %s\n", $k, $v, from_euckr($v);
        $ninfo{$k} = from_euckr($v);
}

$mp3->update_tags(\%ninfo);
$mp3->update_tags();

sub from_euckr {
        return decode('euc-kr', $_[0]);
}