The following snippet will do what you want.

#!perl -w
use strict;
use Cwd;
use Win32::File qw(GetAttributes);
use constant HIDDEN => 2;

my $attribs;
my $dir = cwd();
print $dir,$/;

opendir( DIR, $dir ) or die "Couldn't open $main::DIR: $!\n";
my @vis_files =  grep { -f $dir.'/'.$_  and GetAttributes($_,  $attrib
+s) and not ($attribs & HIDDEN) } readdir(DIR);
closedir( DIR ) or warn "Couldn't close $main::DIR: $!\n";
print $_, $/ for @vis_files;
[download]

Now, I KNOW I shouldn't have to be defining my own HIDDEN constant, as this and all the others are apparently exported into main by Win32::File.

However, I have tried everything to use these exported constants including:

• HIDDEN
• $HIDDEN
• Win32::File::HIDDEN
• $Win32::File::HIDDEN

and either get 'bareword; noises, or if I turn off strict 'not numeric' noises.

I also investingated Win32::File.pm and whilst there is a qw( list ) of the constant names exported, I can see nowhere where they aquire any values?

Anyone who can explain

1. How to use them?
2. How they (are meant) to aquire values

Will earn the customary ++ and my grateful thanks.

Same basic code... just a few tweaks here and there to get the constant working.

#!perl -w
use strict;
use Cwd;
use Win32::File;

my $attribs;
my $dir = cwd();
print $dir,$/;

opendir( DIR, $dir ) or die "Couldn't open $main::DIR: $!\n";
my @vis_files =  grep { -f $dir.'/'.$_  and
  Win32::File::GetAttributes($_,  $attribs) and
  !($attribs & HIDDEN) } readdir(DIR);
closedir( DIR ) or warn "Couldn't close $main::DIR: $!\n";
print $_, $/ for @vis_files;
[download]

When writing a fire-and-forget duplicates finder just now, I found this thread very useful. My coding style and approach seems rather different though. But whether low code granularity is good is often a highly debated issue.

sub dfind {
    my ($dref, $top) = @_;
    hidden( $top )
      and return;
    if (-d $top) {
        for my $file (glob( "$top/*" )) {
            dfind( $dref, $file );
        }
    }
    else {
        register( $dref, $top ); # add to HoA
    }
}

sub hidden {
    my $file = shift;
    my $attribs;
    Win32::File::GetAttributes($file,  $attribs);
    return $attribs & HIDDEN;
}
[download]

Update: note that hidden directories and files are both filtered out owing to how the recursion is contructed.

Originally posted as a Categorized Answer.