Re: Is empty directory?

[Jair Santos]

Thank to Mark , Rob and Charles for your help.

I am using the following snippet of code to check if the directory is empty
and it is working. But I still cannot understand the line   my $count = () =
readdir $dh;

Can anybody explain whats the use of the   = ( ) =  ?

Thanks

Jair



sub IsEmptyDir {

    my ( $directory) = @_ ;
    return undef unless -d $_[0];
    opendir my $dh, $_[0] or die $!;
    my $count = () = readdir $dh;
    return $count - 2;
}
----- Original Message ----- 
From: "Mark G" <[EMAIL PROTECTED]>
To: "Jair Santos" <[EMAIL PROTECTED]>
Cc: "perl" <[EMAIL PROTECTED]>
Sent: Thursday, June 05, 2003 9:09 PM
Subject: Re: Is empty directory?


>
> ----- Original Message ----- 
> From: "Jair Santos" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, June 05, 2003 7:00 PM
> Subject: Is empty directory?
>
>
> > Hi all,
> >
> > does anybody knows how to check if a diretory is empty?
>
>  You can open it {opendir } and see for your self {readdir}
>
> Mark G
>
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]