reading a dir
use Cwd;
my @files;
opendir (DIR, $dirname) or die $!;
my @dir = readdir DIR;
foreach my $item1 (@dir){
if ($item1 ne “..” || $item1 ne “.”){
push @files ,$item1;
}
}
closedir DIR;
Posted by
at
14:23:34
