Tweet


* シフト JIS コードでの ID3 書き込み [#d0d987e4]
コマンドラインから 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;

*本日のツッコミ [#n5941f6e]
#comment


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS