file tests

[Franck Collineau]

Greetings,

I have the following code:
#!/usr/bin/perl -w
$chemin="/home/collineau/tests";
opendir (DIR,"$chemin") || die " impossible  d'ouvrir le répertoire $chemin 
$!";
while ($rep=readdir DIR)
{
        print "$rep\n";
        $a =-d $rep;
        print "$a\n";
}


The output is:
..
1
...
1
Techmedia Broadband home

Startech

Techmedia Broadband home and Startech are directories.
Why $a doesn't return 1 ?

Regards,

Franck

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