Help for this page

Select Code to Download

Select or download this

my $directory = File::Spec->catfile(my @path, my $directoryTest);
opendir DIR,my $directory or die "cannot open dir $directory: $!";
my @file= readdir DIR;
my @FinalDirectoryList;
push (my @FinalDirectoryList,my @file);

Select or download this

#!/usr/bin/perl

...

close FileNameList;              #close the file.
closedir DIR;             #close directory