If you're planning to filetest the return values out of a readdir, you'd better prepend the directory in question.

Also, you should always check the return value of opendir. Moreover, use strict and warnings, they should tell you that $fh and $dh are different variables.

So, all of that together:

#!/usr/bin/perl
use warnings;
use strict;

my $dir = 'C:/';
opendir my $dh, $dir or die $!;
while (my $file = readdir $dh) {
    print "$file\n" if -d "$dir/$file";
}
close $dh;
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Why doesn't my if-statement work?

OK, let's assume you start in "D:\Program Files" and run the script. It reads a filename from C:\, let's say temp. Your if tries to verify that the directory temp exists in the current directory, i.e. "D:\Program Files\temp" is a directory, which is false. My if, on the other hand, tries to verify that "C:\temp" is a directory, which is true.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

According to a source on the internet this looks ok

Please provide details of the "source on the internet" so that we might prevent further spread of this misconception. Thanks.

Forgive me my ignorance, English is not my native language.

Simply: where on the internet did you find the code in your first post? A URL would be great. Thanks.

Hi,

readdir is raw eggs, what you want is cake ( Path::Tiny or Win32::Unicode )

#!/usr/bin/perl --
use strict; 
use warnings;
use Path::Tiny qw/ path /;
my @files_dirs = path( "C:/" )->children;
my @files = grep { $_->is_file } @files_dirs;
my @dirs  = grep { $_->is_dir  } @files_dirs;
...
[download]

#!/usr/bin/perl --
use strict; 
use warnings;
use Win32::Unicode ;
my @files = file_list( 'C:/' );
my @dirs  = dir_list( 'C:/' ); 
...
[download]