File Perl

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