I Perl programmering, fordi datoer kan have figurer som mellemrum, komma eller breve , kan du ikke bare tage to datoer og trække den ene fra den anden. Du er nødt til at konvertere dem til rene tal , før du kan få forskellen mellem de to, derefter returnere denne værdi for brugeren. Konverter to datoer til epoke tid, hvilket er en beregning af det antal sekunder der er gået siden 1 jan 1970 . Dette giver dig mulighed for at trække en dato værdi fra den anden til at få forskellen . Instruktioner
1

Åbn en ny Perl program fil. Indtast følgende kode : .

Brug Time :: Local ,

Dette modul indeholder dato og tid funktioner, du har brug for at beregne tidsværdier
2

Skriv følgende kode : Hej

print " Indtast dag ( 1-31 ) :"

$ dag = < > ;

print " Indtast måned ( 1-12 ) : "

$ måned = < > ;

$ måned = $ måned - 1 ,

print" Enter år : ";

$ år = < > ;

$ year = $ år - 1900 ,

Disse linjer bede brugeren om at indtaste en dag i måneden , måned og år , alle som heltal. Du er nødt til at formindske måneden værdi af én , fordi den " timelocal " funktionen bruger månedsværdier fra nul til 11, ikke én til 12 år. Også, du har brug for at trække 1900 fra år værdi for denne funktion samt . Du kan programmere nogle fejlkontrol kode for at sikre , at brugeren indtaster en ordentlig værdi , eller hvis du vil tillade en bruger at indtaste en måneds navn, såsom "Januar , "-programmet en funktion til at konvertere denne værdi til nul.
< br >
3

Indtast følgende kode : Hej

$ tid = timelocal (0,0,0 , $ dag , $ måned , $ år)

Dette skaber en variabel kaldet $ tid , der kalder timelocal funktionen til at konvertere bruger-indsendes dato epoke tid. De første tre parametre er alle nuller , fordi de tegner sig for sekunder, minutter og timer . Du kan bede brugeren om disse værdier så godt, hvis du ønsker det. Den timelocal funktion returnerer en fejl, hvis en dato ikke eksisterer, såsom marts 35 eller endda 31 juni , så sørg din kode kontrollerer for disse muligheder
4

Indtast følgende kode : .

$ CurTime = tid

$ diff = $ CurTime - $ tid

den første linje opretter en variabel kaldet $ CurTime der bruger den tid, funktionen til at returnere den aktuelle dato i epoke tid . Den anden linje opretter en variabel kaldet $ diff der får forskellen på den aktuelle dato minus bruger-indsendes dato. Den heltal Resultatet er det antal sekunder , der eksisterer mellem de to datoer . Hvis tallet er positivt , så brugeren dato kommer før den aktuelle dato. Hvis tal er negativt , det kommer efter
5

Indtast følgende kode : .

If ($ diff > 0) {

$ diff = int ( $ diff /60/60/24) ,

print $ diff. " Dage er gået siden den dato, du har indtastet. "

} Else {

$ diff = abs ( int ( $ diff /60/60/24)) ,
< p > print " Der er" . $ diff. "Flere dage, indtil den dato , du har indtastet ."

}

Funktionen HVIS kontrol for at se, om bruger-indsendes indtræder før eller efter den aktuelle dato , bare for at vide, hvilke erklæring til udskrive til skærmen. I begge tilfælde konverterer $ diff værdi fra sekunder inde dage, og derefter til et heltal fra en float (for at undgå at udskrive flere decimaler) . Hvis værdien er negativ, abs -funktionen får den absolutte værdi , hovedsageligt dreje negative tal i et positivt tal. For eksempel, " -15 dage " bliver til " 15 dage. "
6

Gem og køre Perl -programmet.