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
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
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] 004