in reply to Display A File Via Attribute

#!/usr/bin/perl -w
use strict;
foreach(<*.shtml>) { if (-M $_ < 31) { print $_,"\n"; } }

[download]
would probably do :)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

Replies are listed 'Best First'.
Re: Re: Display A File Via Attribute
by bikeNomad (Priest) on Jun 05, 2001 at 22:33 UTC
    Except that it doesn't recurse into directories.
[reply]
      Yeah, true =) missed that bit :)

      Greetz
      Beat-'dont make me break out my crappy, buggy, old directory recursion routine'-nik
      ... Quidquid perl dictum sit, altum viditur.
[reply]
      On a related note, File::Find doesn't behave when called from an ASP script in ActiveState's implementation. I think it is having trouble chdir'ing, and can't traverse. I ended up having to code without it.
[reply]

In Section Seekers of Perl Wisdom