Perl Directory Listing

[profx]

Hi,

I am trying to develop a perl script that lists the content of a directory for a website. I have got it to list fine but the files dont seem to be sorted at all. How do i sort by date or name?

here is what i have so far. It lists directorys and their immediate contents. Folders are listed first

sub mainlist {
   opendir(DIR, ".");
   @listing = readdir(DIR);
   foreach $list (@listing) {
      $stat = $list;
      stat($stat);
      if (-d _) {
         if ($list ne "." && $list ne ".."{
              print "$list"; 
              &subdir;
              print ""; 
              print "\n";

           }
        }
     }
closedir(DIR);
}

sub subdir {
   chdir($list);
   opendir(SUBDIR, ".");  
   @sub_listing = readdir(SUBDIR);
      foreach $sub_list (@sub_listing) {
      $sub_stat = $sub_list;
      stat($sub_stat);
      if (-d _) {#if a directory list first with bullet point
         print "";
         print "   • $sub_list " if $sub_list ne "." && $sub_list ne "..";
         print "";
      }
   }
    
   foreach $sub_list (@sub_listing) {
      $sub_stat = $sub_list;
      stat($sub_stat);
      if (-f _) {#if a file list second
         print "";
         print "   $sub_list " if $sub_list ne ".htaccess";
         print "";
      }
   }
    
   $back = "..";
   chdir($back);
   closedir(SUBDIR);
}

any help appreciated!!

 

[Da_iMac_Daddy]

shouldn't this be in the coding section?

 

[profx]

but it is to be run on a webserver, therefore it should be under Web development

 

[profx]

sorry yeah prob should be in The net : coding... never mind. not the end of the world!

 

[Darkshadow]

In the Terminal, do this: perldoc -q sort. The first entry looks like it does what you want to do. Look at the examples and stuff.