3 $dirpath = "/home/mlong/mamer/help/";
5 opendir(FILELIST, "$dirpath");
6 @allfiles = readdir(FILELIST);
9 open(OUT, ">$dirpath/index");
12 $offset = $#allfiles/4;
13 @allfiles = sort @allfiles;
14 foreach $a (@allfiles) {
15 if($allfiles[$i] !~ /\./) {
16 $temp[$j] = $allfiles[$i];
23 #print OUT "$#allfiles files listed\n";
24 while ($i <= ($#allfiles/4)) {
26 (" %-18s %-18s %-18s %-18s\n",
27 $allfiles[$i], $allfiles[$i+($offset*1)],
28 $allfiles[$i+($offset*2)], $allfiles[$i+($offset*3)]);