http://www.perlmonks.org?node_id=135931


in reply to MP3 server with IO::Socket

I too just tried this out. Works brilliantly first go. I modified it to traverse my MP3 directories instead of using a playlist using a common bit of stolen code: 
use File::Find;

my @songs;

sub eachFile {
  if (-e $_ && $_ =~ /\.mp3$/) { push @songs, $File::Find::name;}
}

find (\&eachFile, "/storage/mp3/");

[download]
I've got this running under Debian on an old Pentium holding over 7000 MP3s and it creates the array suprisingly fast.

Ryan

In Section Tutorials