File Perl

  1. Home
  2. Perl
  3. File
  4. List the content of current folder
#!/usr/bin/perl -w
use strict;
print "contents of the new directory:\n";
opendir DH, '.' or die "opendir failed: $!";
my $filename;
while ($filename = readdir(DH)) {
    print "    $filename\n";
}
close DH;