show bitrates of mp3s in a directory

show_all_mp3_bitrates.pl

# show bitrates of mp3s in a directory

use strict;
use warnings;
use feature 'say';
use File::Find;
use File::Spec::Functions;
use MP3::Info;

my @res;

sub walk {
    if (-d $_) {
        opendir(DIR, $_) or die "Could not open $_\n";
        
        while (my $filename = readdir(DIR)) {
            if ($filename =~ /\.mp3$/i) {
                my $path = File::Spec::Functions::catfile($_, $filename);
                my $info = get_mp3info($path);
                push @res, [$info->{BITRATE}, $_];
                last;
            }
        }
        
        closedir(DIR);
    }
}

find(\&walk, $ARGV[0] || ".");
@res = sort {$a->[0] <=> $b->[0]} @res;

for my $e (@res) {
    say sprintf "%+3s :: %s", $e->[0], $e->[1];
}