mp3 bitrate

OK, I couldn't help it.. I DL'd the module and gave it a try and I had
to make a few changes... this works:

#!/usr/local/bin/perl
use MP3::Info;

$mp3dir = shift || die "Usage $0 /path/to/mp3s";

@files = glob("$mp3dir/*.mp3");
foreach $file (@files) {
      $info = get_mp3info($file);
      print $file, ", ", $info->{BITRATE}, "\n";
}

just run:

script_name /path/to/mp3s


It doesn't do recursive dir's but it's pretty functional. Shouldn't take
much to add in recursive dir's.

Regards,
Mike Cantrell


Mike Cantrell wrote:
>
> Mike Cantrell wrote:
> <snip>
> > #!/usr/local/bin
>
> err... that should probably be #!/usr/local/bin/perl or #/usr/bin/perl
> (obviously)
>
> <snip>
>
> > Lucas Vogel wrote:
> > >
> > > Does anyone know of a CLI command that will return the bitrate of an mp3? I
> > > want to create a list of all of my mp3's with their bitrates appended at the
> > > end of the names.
> > >
> > > Thanks
> > >
> > > -------------------------------------------
> > > Lucas Vogel, Software Developer
> > > Exponent Failure Analysis Associates, Inc.
> > > lvogel@exponent.com
> > > (623)587-6739
> > >