#!/usr/bin/perl -w # m3u.pl - by dual # # Generates an extended M3U # for a directory of MP3s ########################### use strict; # Check for mp3info my $whereis = `whereis mp3info`; my (undef, $check) = split(/: /, $whereis); unless ($check) { print "Sorry, m3u.pl needs mp3info... "; print "http://www.ibiblio.org/mp3info/\n"; exit; } # Create M3U chomp(my $pwd = `pwd`); my @dirs = split(/\//, $pwd); open M3U, ">$dirs[-1].m3u" or die "Can't create M3U file: $!"; print M3U "#EXTM3U\n"; my @files = <*>; for my $file (@files) { if ($file =~ /mp3$/i) { my $time = `mp3info -p %S "$file"`; my $song = $file; $song =~ s/\.mp3$//i; print M3U "#EXTINF:$time,$song\n"; print M3U "$file\n"; } } close M3U;