Re^2: check if it is a file or directory

... but your solution does not do what the OP wants:

Only print directory names (yours also prints file names).
Do not read all the names into an array at once -- just operate on each name, one at a time (yours stuffs all names into an array, then it loops through the array).

Comment on Re^2: check if it is a file or directory

Replies are listed 'Best First'.
Re^3: check if it is a file or directory by saintex (Scribe) on Feb 27, 2010 at 07:22 UTC
But changing dir maybe a better solution for a more compact code. For example: `$oldFolder='C:\Documents and Settings\user\Desktop'; opendir OF, $oldFolder or die "\nCannot open dir $old1Folder: $!\n"; chdir $oldFolder; while ( my $name=readdir OF) { next if $name =~ /^\./ or -f $name; # not interesting . o .. (or hidden files) neither in plain files print $name; } closedir OF;` [download] now -f test in oldFolder.	[reply] [d/l]
Re^4: check if it is a file or directory by Khen1950fx (Canon) on Feb 27, 2010 at 11:16 UTC
I incorporated elements of your script into this: `#!/usr/bin/perl use strict; use warnings; use Path::Extended::Dir; my $dir = Path::Extended::Dir->new('/root/Desktop'); $dir->open; chdir($dir); while( my $entry = $dir->read($dir) ) { next if $entry =~ /^\./ or -f $entry; print $entry, "\n"; } $dir->close;` [download] I decided to use Path::Extended::Dir to try to get better control.	[reply] [d/l]