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] &
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] & 004 && $_ !~ /^\.+/;
}
return 0; //No subdirs found.
}
Vladimir D Belousov
Hallo all!
How should I fast check up if in the current directory ever one
directory exists?
I think this way is incorrect:
sub is_node {
my $cur_dir = shift;
opendir(DIR, $cur_dir) || return 0;
my @dirs = readdir(DIR);
closedir(DIR);
while(@dirs){ //Looking up directory until any [sub]direc
