#!/usr/bin/perl -l use strict; use MP3::Tag; use File::Copy; die "bad directory" if ! -d $ARGV[0]; my %sl; opendir R,"."; foreach (grep /\.mp3$/i,readdir R) { my $m = new MP3::Tag($_); $m->get_tags; $sl{$m->{ID3v1}{track}} = $m->{ofilename}; } closedir R; foreach (sort {$a <=> $b} keys %sl) { File::Copy::copy($sl{$_},"$ARGV[0]/$_-$sl{$_}"); print "$_-$sl{$_}"; } exit 0