foreach my $dir (@DIRS) {
  warn "Directory $dir not found!\n" and next
    unless -d $dir;
  #
  #  work with existing directory here
  #
}
[download]

++ccn as it is obviously much better to check for the existence of a directory before trying to open it and warn on failure

as it is obviously much better to check for the existence of a directory before trying to open it and warn on failure

That might be OK here, but in the general case it is not, because of race conditions. If you check for the existence of a directory, and then open it, it might be deleted by another process between these two operations.

Thus you have to do the error checking anyway, and don't gain anything by another call to stat (which most file test ops do).

That's why the general philosophy with file access and IO is "try and see if it worked", not "first test if it might work, and then try".

Thanks a lot svenXY and ccn

if (opendir DIR,$dir) {
    # do stuff with contents
}
else {
   print "[WARNING] $dir not present\n";
}
[download]

open(FH, "txtfile") or die "Cannot open the file";
while (<FH>) {
     chomp($_);
     if (-d $_) {
          ---do your stuff here
     } else {
          print "Directory does not exist";
     }
}
close(FH);
[download]

I often use File::Find.

Something like:

use File::Find;

find(\&wanted, @directories_to_search);
sub wanted { ... }
[download]

In the wanted sub you can do the verifications you need.

You can also use the warn to print the warnings

my  @DIRS=qw(there notthere there);
foreach (@DIRS)
{
    if (-d $_)
    {
        # Do the task. 
    }
    else
    {
        warn "File not found\n";
    }
}
[download]