in reply to array of files in directory

Make use of readdir(). 

my $dir = ".";

opendir(DIR,$dir) or die "Error: $!";
my @files = readdir(DIR) or die "Error: $!";
closedir(DIR);

print @files;

[download]


"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid

In Section Seekers of Perl Wisdom