日記/2006-01-04

シフト JIS コードでの ID3 書き込み †

コマンドラインから EUC-JP 環境でやろうとすると頭が混乱するので，こんなラッパをこしらえてみる．

#!/usr/bin/perl
#
# ID3 sjis コード書き込み．
#
use Jcode;

foreach $file ( @ARGV ) {
    print STDERR "ID3 for $file\n";

    print STDERR "title: ";
    $title = <STDIN>; chomp $title;
    $stitle = Jcode->new ( $title, 'euc' )->sjis;

    next if $title eq '';

    print STDERR "singer: ";
    $singer = <STDIN>; chomp $singer;
    $ssinger = Jcode->new ( $singer, 'euc' )->sjis;

    next if $singer eq '';

    system ( 'id3ed', '-q', '-s', $stitle, '-n', $ssinger, $file );
    print STDERR "\n\n";
}
exit 0;