Hi,
Vladimir D Belousov <[EMAIL PROTECTED]> wrote;
> Sorry, I mean
>
> sub is_node {
> my $cur_dir = shift;
> opendir(DIR, $cur_dir) || return 0;
> my @dirs = readdir(DIR);
> closedir(DIR);
> for(@dirs){ //Looking up directory until any [sub]directory found
> return 1 if (lstat)[2] & 0040000 && $_ !~ /^\.+/; }
> return 0; //No subdirs found.
> }
sub is_node {
my $cur_dir = shift;
my $have_dir = 0;
opendir( DIR, $cur_dir ) || return undef;
while( my $entry = readdir(DIR) ){
next if $entry =~ m/^\.\.?$/;
last if -d "$cur_dir/$entry" && ++ $have_dir;
}
closedir( DIR );
return $have_dir;
}
HTH,
Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
