my @files = grep { !/^\.+$/ && -M $_ > 1; } map { $mydir."/".$_; } readdir(DIR);
There is no point in doing that regex (corrected to your version above) after map, it will always fail. Also, you may want to skip all dot-files, since they are supposed to be hidden.
my @files = grep { not /^\./ and -M "$mydir/$_" > 1 } readdir(DIR);— Arien
In reply to Re: Re: Re: Re: Works locally but not on Info Server
by Arien
in thread Works locally but not on Info Server
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |