Mega Code Archive

 

Categories / Perl / File

 

List the files and subdirectories in a directory in alphabetical order

#!/usr/local/bin/perl  opendir(HOMEDIR, "/u/jqpublic") || die ("Unable to open directory");  @files = readdir(HOMEDIR);  closedir(HOMEDIR);  foreach $file (sort @files) {      print ("$file\n");  }