bin/CreateAlbumPlaylists.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use MP3::Info;
   6 use Data::Dumper;
   7
   8 my $file = $ARGV[0];
   9
  10 die "Cannot open $file - $!" unless -r $file;
  11
  12 my $tag = get_mp3tag ($file);
  13
  14 for (keys %$tag) {
  15   print "$_: $tag->{$_}\n";
  16 } # for