#!/usr/bin/perl
my $file="/root/test.mp3";
use MP3::Info;
my $tag = get_mp3tag($file);
my $info = get_mp3info($file);
print "$_\t=>\t$info->{$_}\n" for sort keys %$info;
print "$_\t=>\t$tag->{$_}\n" for sort keys %$tag
Программа выдаст примерно следующее:
[root@www MP3-Info-1.00]# ./u.pl
BITRATE => 160
COPYRIGHT => 0
FRAMES => 93498
FRAME_LENGTH => 49
FREQUENCY => 44.1
LAYER => 3
MM => 3
MODE => 0
MS => 72.0499999999902
PADDING => 0
SECS => 229.07205
SIZE => 4581441
SS => 49
STEREO => 1
TIME => 03:49
VBR => 0
VERSION => 1
ALBUM => Ist der Ruf erst ruiniert...
ARTIST => Tic Tac Toe
COMMENT => http://www.delit.net
GENRE => Rock
TITLE => Lдstern
TRACKNUM => 32
YEAR => 2000
[root@www MP3-Info-1.00]#
Обращаться к хешам, которые возвращаются функциями, можно как и при работе с
perl -e 'print "$k\t=>\t$v\n"
while(($k, $v)=each %ENV)'
Собственно модуль так-же умеет записывать информацию о записи в mp3. файл, а как это сделать читайте в man MP3::Info.