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 · ベストアンサー

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した結果を変換することで望んだとおりの結果を得ることができました。
本当にありがとうございました。

回答No.3

tatsu99

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

回答No.1

zebedeer

use MP3を使ったこと無いのであれですが、jcode.pmって値にreferを渡すんじゃないですか？
（エラーもそんなこと言ってるし）

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

お礼

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