File Perl

  1. Home
  2. Perl
  3. File
  4. 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"); 
}