Permission denied while reading contents of a Windows directory

Question

I have a script that reads the contents of a directory. But the script can't open the directory because permission is denied. I am working on Windows, and I've tried to run the script as administrator, but that didn't help.

Here's the code:

sub dir_put {
  my $dir_name = shift;

  open DIR, $dir_name or die "Error reading directory: $!";
  my @array;
  my @return;

  while ($_ = readdir(DIR)){
    next if $_ eq "." or $_ eq "..";
    if (-d $_) {
      @return = dir_put($_);
      unshift(@array, @return);
      next;
    }
    unshift (@array, "$dir_name\\$_");
  }

  @array;
}

How should I fix it?

score 4 · Accepted Answer · answered Nov 09 '13 at 10:02

4

I think you want opendir, not open.

answered Nov 09 '13 at 10:02

Joe Z

17,413
3
28
39

Thanks. That was the problem. – brotheroftux Nov 09 '13 at 10:07

score 1 · Answer 2 · answered Nov 09 '13 at 10:05

You can't open directory with open, it isn't file. For opening directories there is opendir function in perl.

Try:

opendir my $dir, $dir_name or die "Error reading directory: $!";
my @array;
my @return;
while ( readdir $dir ) {
...

Also you better use modules from cpan like File::Find or File::Find::Rule

perl -MFile::Find::Rule -E "say $_ for File::Find::Rule->in('F:\\Films');"

Permission denied while reading contents of a Windows directory

2 Answers2