Tweet

シフト 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;

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-01-04 (水) 05:29:55 (4669d)