Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Re: Re: Specific last modified times for html files

by joe++ (Friar)
on Nov 06, 2002 at 19:28 UTC ( [id://210852]=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Specific last modified times for html files
in thread Specific last modified times for html files

What about (untested...):
sub process { my $mtime = (stat($_))[9]; # moved this line up return unless (/\.html?$/ && ($mtime < 946684800)); $ct++; print "HTML: $File::Find::name\t\t"; ($seconds, $minutes, $hours, $day_of_month, $month, $year, $wday, $yday, $isdst) = localtime($mtime); printf("%02d/%02d/%04d\n", $month+1, $day_of_month, $year+1900); } print "Tot = $ct\n";
NOTE: 946684800 is the epoch time for Sat Jan 1 00:00:00 2000 GMT which I found thus:
perl -MDate::Parse -e"print str2time('01 Jan 2000', 'GMT')"
HTH!

--
Cheers, Joe

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://210852]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (5)
As of 2024-03-29 14:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found