in reply to Re: Re: Re: Works locally but not on Info Server
in thread Works locally but not on Info Server

my @files = grep { !/^\.+$/ && -M $_ > 1; }
            map { $mydir."/".$_; } readdir(DIR);

[download]

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 Section Seekers of Perl Wisdom