Ok mate and where can I download that module?
Quoting John Baker <[EMAIL PROTECTED]>:
>
>
>
> On Thu, 30 Jan 2003 [EMAIL PROTECTED] wrote:
>
> > Date: Thu, 30 Jan 2003 07:59:11 -0500
> > From: [EMAIL PROTECTED]
> > To: [EMAIL PROTECTED]
> > Subject: TimeStamp compare
> >
> > Hi there mates,
> >
> > I would like to Know If anyone of you have already tried to get the time
> and
> > date a file was created from the OS. For example imagine I have a *.java
> file
> > and I would like to compare the *.class file date of creation with the date
> of
> > edition of the *.java file in other to make sure the *.class file was
> generated
> > (compiled ) or not after the *.java new edition.
> >
> > I hope I�ve made myself clear ,
> > Thks in advance.
> >
> #-- This module is a must-have:
> use Date::Manip;
>
> # Get properly formatted modify time of file from epoch
> my $fmodtime = (stat($fh))[9];
> my $mod_parse = &ParseDateString("epoch $fmodtime");
>
> # Check for GMT, if not, convert
> my ($dnow, $secs, $now_parse, $delta_string);
> if ($tz !~ /^GMT$/) { $dnow = Date_ConvTZ($now,"","GMT"); }
> else { $dnow = $now; }
>
> # Get properly formatted current time from epoch
> my ($m,$d,$y,$h,$mn,$s) = (split(/,/ ,$dnow));
> $secs = &Date_SecsSince1970GMT($m,$d,$y,$h,$mn,$s);
> $now_parse = &ParseDateString("epoch $secs");
>
> $delta_string = DateCalc($mod_parse,$now_parse,\$err);
>
> ---
> This is code I've extracted from an application I wrote and
> maintain. It's comparing the current time with the last
> mod time. I'm interested in this delta in order to determine
> whether to update a file or not (if older than 3 hours update,
> if not, don't).
>
> So the point is, stat() and Date::Manip is one way to solve your
> problem.
>
> jab
>
> perldoc -f stat
> perldoc /path/to/perl5/site_perl/5.6.1/Date/Manip.pod
>
>
> --------
> Be straight and to the point. Don't waste others' time.
> Do your homework before you ask for help.
>
> --Unknown
>
>
>
-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
