Help for this page

Select Code to Download

Select or download this

my @files = ();
my $dir = $rootPath . $input->param('path');
...
opendir (DIR, $dir) or die $!;
@files = grep { -f } map { "$dir$_" } grep { !m#^\.# } readdir (DIR);
closedir (DIR);

Select or download this

@files = grep { -f } map { "$dir$_" } readdir (DIR);