| version 1.1, 2006/03/02 23:20:47 |
version 1.2, 2006/08/12 01:14:53 |
|
|
| #!/usr/bin/perl -w |
#!/usr/bin/perl -w |
| |
# $RedRiver$ |
| ######################################################################## |
######################################################################## |
| # showall.pl *** Displays all MP3's in all subdirs |
# showall.pl *** Displays all MP3's in all subdirs |
| # |
# |
|
|
| # $filename =~ s/%(..)/pack("c",hex($1))/ge; |
# $filename =~ s/%(..)/pack("c",hex($1))/ge; |
| chomp $filename; |
chomp $filename; |
| print "Added $filename<br>\n"; |
print "Added $filename<br>\n"; |
| open PLAYLIST, ">>$list" or bail("unable to open PLAYLIST: $!"); |
open PLAYLIST, ">>$list" or bail("unable to open PLAYLIST '$list': $!"); |
| print PLAYLIST "$filename\n"; |
print PLAYLIST "$filename\n"; |
| close PLAYLIST or bail("unable to close PLAYLIST: $!"); |
close PLAYLIST or bail("unable to close PLAYLIST: $!"); |
| } else { |
} else { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to createfulllist.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / mp3 / bin