File Perl

  1. Home
  2. Perl
  3. File
  4. Using readdir to get the content in a folder
opendir(DIRECTORY, '.') 
or die "Can't open current directory.";
print join (', ', readdir(DIRECTORY));
closedir DIRECTORY;