3 @dirList = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m",
4 "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
6 foreach $i (@dirList) {
7 opendir(THISDIR, "/Users/mlong/mamer/players/$i");
8 @tempdir = sort(readdir(THISDIR));
11 foreach $file (@tempdir) {
12 ## print ("FILE = :$file:\n");
15 print("unlink :$file :\n");
16 unlink("/Users/mlong/mamer/players/$i/$file");