Mega Code Archive

 

Categories / Perl / File

 

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);