Re: getting files names

[cengineer]

Hope this helps

my $files = dirlist($someDirectory);

foreach my $fileInDirectory (@$files) {

dosomething($fileInDirectory);

}


sub dirlist {
        my $dir = shift;
        my @filelist;
        opendir(DIR, $dir) or die "can't opendir $dir: $!";
        while (defined(my $file = readdir(DIR))) {

                # Skip "." and ".."
                next if ($file =~ /^\.\.?$/);
                push(@filelist, $file);

        }
        closedir(DIR);
        return \@filelist;
}