You might want to consider re-working your logic.

@to_search = qw' /exists /doesnt-exist ';   # master list

find( { wanted => \&wanted, bydepth => 0 }, grep { -d } @to_search);
[download]

If you REALLY need to know which ones don't exist, consider grepping that out beforehand.

@not_found = grep { ! -d } @to_search;
warn "Not found: " . join(", ", @not_found) . "\n" if @not_found;
[download]

# assuming you don't mind shifting off the first arg
my $start = shift || 'e:\logs';

warn "$start doesn't exist" unless -e $start;
# or whatever you want to do with the 'exception'
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)

$SIG{__WARN__} = sub{
    print "There is no: $_[0]\n";
}
[download]

UPDATE: Based on jeffa's response I may have misinterepreted what you want, and this is overkill...

If you are not averse to rolling your own then this may do the trick:

  #!/usr/bin/perl -w

  use strict;

  my $root  = 'c:/cluster1/'; # must have trailing path delim!
  my $delim = '/';
  my @dirs  = ($root);
  my @files;

  for my $path (@dirs){
      opendir ( DIR, $path ) or next; # skip dirs we can't read
      while (my $file = readdir DIR) {
          # skip the dot files
          next if $file eq '.' or $file eq '..';
          # skip symbolic links 
          next if -l $path.$file;
          if ( -d $path.$file ) {
              # add the dir to our dir list
              push @dirs, $path.$file.$delim;
          } 
          else {
              # add the file to file list       
              push @files, $path.$file;      
          }     
      }
      closedir DIR;
  }

  print "Directory list\n\n";
  print "$_\n" for sort @dirs;

  print "\n\nFile List\n\n";
  print "$_\n" for sort @files;
[download]

This works by adding found directories to the end of the @dirs list we are iterating over. BTW I don't quite understand how you get to a directory that does not exist but you can change the default behaviour of this code when it can't opendir a DIR to whatever you want. Just change the next.....

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

my $directory = 'e:\logs';
my $temp = -d $directory ? find ({wanted => \&wanted,bydepth =>0}, $di
+rectory) : undef;
[download]

if (-d $directory) {
  # find...
} else {
  # do some error processing stuff
}
[download]

"c:/config.sys" is the same as "c:\\config.sys" and 'c:\config.sys', but not prone to the quoting goofs.

xoxo,
Andy
--
<megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

As long as we're wandering down this path... it's also good to get into the habit of using single quotes unless variable interpolation is required. Lots of sneaky little bugs hide inside double quotes.

(In my message previous, I went with the bugslash because the point I was making was how to solve the original problem, rather than correcting style.)

While this is certainly true in the latest version of ActivePerl for Windows, there was a time when the double backslash was the only safe way to proceed.... I can't remember what version it was that life became easier for us windozers, and I no longer have an older install to test it. Anyone with better memory than me want to chime in here?