Filter READDIR array

MattP

I cant remember the quick way to remove . and .. from an array populated from a directory listing. Can someone help....

$dir = "C:\\iw-home\\httpd\\iw-bin\\testing\\data";
opendir(DIR, $dir) || die "can't open dir: $dir - $!";
@dcrs = readdir (DIR);
close (DIR);

@dcrs contains all of the files as well as . and ..

How do I process that array to remove the . and .. elements?

Thanks
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

jbonifaci

Matt,

If all you want to do is get rid of . and .., you could read in the directories like this:

@dcrs = grep !/^\.{1,2}$/, readdir (DIR);

Or if you wanted to leave them in the array, but ignore them in a foreach loop, you could do it like this:

foreach (@dcrs)
{
if ($_ =~ /^\.{1,2}$/) {next};

# other code here
}

Hope this helps,
Jeff Bonifaci