All~

Of late I decided to run through my mp3 collection and standardize the filenames. I figured that this would be a perfect candidate for a small script. I ran into a little trouble with Mp3::Tag not supporting some of the tag versions that I have. But after exploring CPAN for a little while, I got everything working using MP3::Info. Apologies to everyone for the very Windows specific `move ...`

use MP3::Info;

opendir(DIR, ".") or die "can't opendir $some_dir: $!";
@files = grep { /mp3/ } readdir(DIR);
closedir DIR;

for (@files)
{
  my $tag = get_mp3tag($_) or 
    print "Could not access tag on $_\n" and next;

  my $newname = $tag->{"ARTIST"} . " - " . $tag->{"TITLE"} . ".mp3";
  `move "$_" "$newname"`;
}
[download]

Comments are most welcome,
Boots
---
Computer science is merely the post-Turing decline of formal systems theory.
--???