#!/usr/bin/perl -w
use
strict;
if
(!
$ARGV
[0]) {
"Usage: ogginfo.pl filename\n"
;
exit
;
}
my
$fn
=
$ARGV
[0];
my
$ogg
= Ogg::Vorbis::Header::PurePerl->new(
$fn
);
foreach
my
$k
(
keys
%{
$ogg
->info}) {
$k
,
'='
,
$ogg
->info->{
$k
},
"\n"
;
}
foreach
my
$k
(
$ogg
->comment_tags) {
foreach
my
$cmmt
(
$ogg
->comment(
$k
)) {
$k
,
'='
,
$cmmt
,
"\n"
;
}
}