日記/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', $ssinge...
print STDERR "\n\n";
}
exit 0;
終了行:
* シフト 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', $ssinge...
print STDERR "\n\n";
}
exit 0;
ページ名:
-->
![[PukiWiki]](image/logo.gif "[PukiWiki]"){kind=logo}
