dato/tid sammenligning med perl

hent Date

Date::Calc qw(Delta_Days Add_Delta_DHMS Add_Delta_Days);

ups - lidt for hurtig på aftrækkeren

Date-modulet kan hentes på

http://search.cpan.org/dist/Date-Calc/

hi mfalck

oki, jeg er lidt ny til perl, jeg har installeret modulet, men kan du ikke give mig et eksempel på hvordan du vil få de 2 formater til noget ens ?

Thomas

Skal man forstå "0307131400" som 13. juli 2003 kl. 14.00 ?

$maxdatetime = "2003-07-13 07:00:00";
$datetime = "0307131400";
$maxdatetime.="end";
$maxdatetime=~ s/\d\dend//g;
$maxdatetime=~ s/^20//;
$maxdatetime=~ s/\-//g;
$maxdatetime=~ s/\://g;
$maxdatetime=~ s/\ //g;


if($maxdatetime gt $datetime){print "maxdatetime er størst";}
else {print "maxdatetime er mindst";}
print "\n$maxdatetime\n$datetime";

er IKKE år 2000 sikret, det kan tilføjes, hvis det ønskes

beklager "end" metoden, men jeg kunne ikke få \$ til at virke og ovenstående virker.

Ovenstående kryptiske bemærkning vetyder at det kun virker hvis begge datoer er efter (eller =) 1/1 2000

Date::Calc kan faktisk sammenligne en række forskellige formater, jeg har selv brugt den tit.

Du kan hente den ved http://search.cpan.org/CPAN/authors/id/S/ST/STBEY/Date-Calc-5.3.tar.gz

eller
perl -MCPAN -e 'install Date'

Hov du skal bruge denneher istedet:

http://search.cpan.org/CPAN/authors/id/S/SB/SBECK/DateManip-5.42a.tar.gz

du installerer det med at pakke den oventstående fil ud. Så kører du
$ perl Makefile.PL
$ make
$ make test
$ make install      (som root)

så kan du bruge modulet i dine programmer.

for at bruge modulet så skal du

use Date::Manip qw(ParseDate UnixDate);

$date1 = ParseDate($string1);
  $date2 = ParseDate($string2);
  $flag = Date_Cmp($date1,$date2);
  if ($flag<0) {
    # date1 is earlier
  } elsif ($flag==0) {
    # the two dates are identical
  } else {
    # date2 is earlier
  }

Date::Manip er meget fleksibel med datoer:

$date = ParseDate("today");
  $date = ParseDate("1st thursday in June 1992");
  $date = ParseDate("05/10/93");
  $date = ParseDate("12:30 Dec 12th 1880");
  $date = ParseDate("8:00pm december tenth");
  if (! $date) {
    # Error in the date
  }

Hi i 2.

Mange tak for hjælpen,jeg har lige fået breums foreslag til at virke, men jeg vil bestemt kigge på det som mfalck foreslår..

Tak for hjælpen

Thomas