use MP3::Info;

...

sub getInfo {
  # entry is a single line from the .m3u
  # which is the path up to and including the 
  # song file.
  my ($entry) = shift;

  if ($entry =~ /\.ogg$/i) {
    my $ogg = Ogg::Vorbis->new;
    open(IN, "< $entry");
    $ogg->open(IN);
    my $oggInfo = $ogg->info;
    my %tag  = %{$ogg->comment};
    close(IN);

    foreach my $key (keys %tag) {
      if ($key =~ /^artist/) { 
        $info{artist} = $tag{$key}; 
      }
      elsif ($key =~ /^album/)  { 
        $info{album} = $tag{$key}; 
      }
      elsif ($key =~ /^title/)  { 
        $info{song} = $tag{$key}; 
      }
      elsif ($key =~ /^genre/) {
        $info{type} = $tag{$key};
      }
      elsif ($key =~ /^date/) {
        $info{year} = $tag{$key};
      }
    }
  }
  elsif ($entry =~ /\.mp3$/i) {
    my $mp3hashref = get_mp3tag ($entry);
    my %mp3tag = %$mp3hashref if ($mp3hashref);
    $info{artist} = $mp3tag{ARTIST};
    $info{album}  = $mp3tag{ALBUM};
    $info{song}   = $mp3tag{TITLE};
    $info{type}   = $mp3tag{GENRE};
    $info{year}   = $mp3tag{YEAR};
  }
}
[download]

The above subroutine basically extracts either MP3 or Ogg tags from song files and populates the $info hash (which in turn populates the UI.

For the most part, it works flawlessly. However, every so often it crashes with the following:

Tk::Error: Tk::Listbox=HASH(0x8646f6c) is not a Tk object at /usr/lib/
+perl5/site_perl/5.8.0/i386-linux-thread-multi/Tk.pm line 91. (command
+ bound to event)
[download]

The really odd part (to my mind) is that if I comment out the line

my %mp3tag = %$mp3hashref if ($mp3hashref);
[download]

the script runs just fine. Of course, the UI is never populated with anything, but it doesn't crash either.

If anyone has any suggestions, I'd really appreciate it. (The entire script is way too long to post here. If you want to view the entire script, the CVS is available at mcc.sourceforge.net or contact me and I'll be glad to email it to you.

Thanks!

If things get any worse, I'll have to ask you to stop helping me.