Re: list dir contents, w/o some stuff


more useful options
	PerlMonks

Re: list dir contents, w/o some stuff

by Chrisf (Friar)

on Jan 14, 2002 at 12:24 UTC ( [id://138543]=note: print w/replies, xml )

Need Help??

in reply to list dir contents, w/o some stuff

Also bad newbie code, but should do it for you ;-)

use strict;

my (@files, @printThis);
my $contentDir = './';

opendir(DIR, "$contentDir") || die "Can't open dir: $!";
    @files = readdir(DIR);
closedir(DIR);

foreach (@files) {
    if ($_ !~ /^\.+/) {
        push @printThis, $_;
    }
}

# then print out your content
[download]

Update: Move along, nothing to see here ;-)