日記/2006-01-04 の変更点

追加された行はこの色です。
削除された行はこの色です。
日記/2006-01-04 へ行く。
日記/2006-01-04 の差分を削除

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