Mega Code Archive

 

Categories / Perl / File

 

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;