Actually got it working. You would need to use File::Find to search
sub directories however.
#!\usr\bin\perl
use warnings;
use strict;
use diagnostics;
use File::List;
my $mp3;
my @musiFiles;
$mp3 = new File::List("C:/Users/RenshawFamily/maven/Music/Foo Fighters");
my @musicFiles = @{ $mp3->find("\.mp3\$") };
@musicFiles = sort(@musicFiles);
foreach (@musicFiles)
{
print " $_ ", "\n";
}
Prints out all mp3 files and including the path to the file for example ouput.
C:/Users/RenshawFamily/maven/Music/Foo Fighters/Echoes, Silence,
Patience & Grace/Ballad of the Beaconsfield Miners.mp3
C:/Users/RenshawFamily/maven/Music/Foo Fighters/Echoes, Silence,
Patience & Grace/But, Honestly.mp3
Sayth
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
