MP3情報の表示

Windowsで作ったMP3ファイルのタグ情報をちゃんと表示するためにPerlスクリプトを作っているのですが、
Jcodeでeucに変換する所でエラーになってしまいます。
どこをどう直せばちゃんと表示できるようになるのかわかる方がいらっしゃいましたら教えてください。

== mp3info.pl ======
#!/usr/local/bin/perl -w
use MP3::Info;
use Data::Dumper;
usr Jcode;

my $file = $ARGV[0];

my $tag = get_mp3tag($file);
my $info = get_mp3info$file);

my $jtag = jcode($tag)->euc;

print Dumper($jtag, $info);

============

$./mp3info.pl aaa.mp3

$Not a SCALAR reference at /usr/lib/perl5/site_perl/5.6.1/i686-linux-multi/Jcode.pm line 579.

No.2 ベストアンサー 回答者： tatsu99 回答日時： 2003/10/08 00:48

my $tag = get_mp3tag($file);により得られた結果である$tagは、そのままＥＵＣに変換出来ません。

従って、以下のようにしてください。
-----------------------
my $file = $ARGV[0];
my $tag = get_mp3tag($file);
my $info = get_mp3info($file);
my $data = Dumper($tag, $info);
my $edata = jcode($data)->euc;
----------------------------------
つまり、Dumperの結果をＥＵＣコードに変換することになります。これであなたの望んだ結果が得られるはずです。

この回答へのお礼

ご返答ありがとうございます。
Dumpした結果を変換することで望んだとおりの結果を得ることができました。
本当にありがとうございました。

お礼日時：2003/10/22 10:31

No.3 回答者： tatsu99 回答日時： 2003/10/08 00:51

NO2です。

print $edata ;
を最後に行ってください。

No.1 回答者： zebedeer 回答日時： 2003/10/07 06:34

use MP3を使ったこと無いのであれですが、jcode.pmって値にreferを渡すんじゃないですか？

（エラーもそんなこと言ってるし）

- my $jtag = jcode($tag)->euc;
+ my $jtag = jcode(\$tag)->euc;

この回答へのお礼

ご返答ありがとうございます。
大変助かりました。
また何かありましたらご助言よろしくお願いします。

お礼日時：2003/10/22 10:34