in reply to Re^2: check if it is a file or directory
in thread check if it is a file or directory

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.

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom