File Perl

  1. Home
  2. Perl
  3. File
  4. List the files and subdirectories in a directory
#!/usr/local/bin/perl 
opendir(HOMEDIR, "/u/jqpublic") || die ("Unable to open directory"); 
while ($filename = readdir(HOMEDIR)) { 
    print ("$filename\n"); 
} 
closedir(HOMEDIR);