opendir(SONGS, 'd:\my files'); @songs = readdir(SONGS); @songs = sort @songs; open(LIST, ">mp3.html"); print LIST< My MP3's
Just a note of forwarning, there are over one thousand in here, so if you intend to go through the whole thing, it may take you awhile. If you want any of these, just ask and i can send it. Unfortunately i have a very small hard drive and can't fit them all on this drive.
End_Of_Html $x = '.'; $y = '..'; for (0 .. $#array) { if (($x == $songs[$_]) or ($y == $songs[$_])) { splice (@songs, $_, 1); last; } } print LIST join("
", @songs); close(LIST);