view release on metacpan or  search on metacpan

bin/id3shit  view on Meta::CPAN

  my $i = 0;
  for(glob("$dir/*")) {
    ++$i;
    if(-d $_) {
      find_mp3($_);
    }
    elsif(-f $_ && $_ =~ m;\.mp3$;) {
      push(@mp3, $_);
    }
  }
  print "find_mp3(): $i iterations\n" if($DEBUG);
  return(\@mp3);
}

sub show_info {
  my @files = @_;
  return unless(@files);

  for my $f(@files) {
    my $info = get_mp3info($f);
    print "Doesnt look like audio to me\n" and exit(1) unless($info);