Ako sa dostať na rozdiel dvoch Dáta v Perle

V programovania v jazyku Perl , pretože dáta môžu mať znaky , ako sú medzery , čiarky alebo listy , nemôžete jednoducho vziať dve dáta a odpočítať jedno od druhého . Je potrebné ich previesť na čisté čísla , ako môžete získať rozdiel medzi týmito dvoma , potom sa vráti túto hodnotu pre užívateľa . Prevod dva dátumy epocha čas , ktorý je výpočet počtu sekúnd , ktoré uplynuli od 01.01.1970 . To umožňuje odpočítať jednu hodnotu dáta z druhej , aby sa rozdiel . Pokyny dovolená 1

Otvorte nový súbor programu v Perlu . Zadajte nasledujúci kód :

použiť čas :: Miestne ;

Tento modul obsahuje dátum a čas funkcie , ktoré potrebujete pre výpočet časovej hodnoty
2

Zadajte nasledujúce . kód :

print " Zadajte deň ( 1-31 ) : " ;

$ den = < > ;

print " Zadajte mesiac ( 1-12 ) : " ;

$ mesačne = < > ;

$ mesiac = $ mesiac - 1 ;

print " Zadajte rok : " ;

$ rok = < > ;

$ ročníka year = $ - 1900 ;

Tieto riadky vyzve užívateľa na zadanie dňa v mesiaci , mesiac a rok , všetko ako celé čísla . Musíte zmenšenie hodnoty mesiac jeden , pretože funkcia " timelocal " používa mesačne hodnôt od nuly do 11 , nie jeden na 12. Tiež je potrebné odpočítať 1900 z roku hodnoty pre túto funkciu rovnako . Môžete naprogramovať niektoré kontroly chýb kód zaisťuje , že používateľ zadá správne hodnoty , alebo ak chcete umožniť užívateľovi zadať názov mesiaca , ako napríklad "január " programové funkcie previesť túto hodnotu na nulu .

Sims 3

zadajte nasledujúci kód :

$ time = timelocal ( 0,0,0 , $ den , $ za mesiac , $ rok ) ;

Tým sa vytvorí premennej s názvom $ času , ktorý volá timelocal funkciu previesť užívateľa - predložil dátum epocha čas . Prvé tri parametre sú nulové , pretože predstavujú sekundy , minúty a hodiny . Môžete vyzvať užívateľa k týmto hodnotám , rovnako , ak chcete . Timelocal funkcia vráti chybu, ak dátum neexistuje , ako je napríklad marci 35 alebo dokonca 31 júna , takže uistite sa , že kontroly váš kód týchto možností
4

zadajte nasledujúci kód : .

$ curtime = čas ;

$ diff = $ curtime - $ time ;

Prvý riadok vytvorí premennú s názvom $ curtime , ktorý používa časové funkcie vráti aktuálny dátum v epoche čas . Druhý riadok vytvorí premennú s názvom $ diff , ktorý sa dostane na rozdiel aktuálny dátum mínus užívateľa - predložil dátum . Číslo Výsledkom je počet sekúnd , ktoré existujú medzi týmito dvoma dátumami . Ak je číslo kladné , potom dátum užívateľ je pred aktuálnym dátumom . Ak je číslo záporné , ide po
5

zadajte nasledujúci kód : .

If ( $ diff > 0 ) {

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

print $ diff . " Dní , ktoré uplynuli od dátumu , ktoré ste zadali . " ;

} Else {

$ diff = abs ( int ( $ diff /60/60/24 ) ) ;

print " Existuje " . $ Diff . " Viac dní do dátumu , ktoré ste zadali . " ;

}

- Li funkcia skontroluje , či užívateľ - predložil deň pred alebo po aktuálny dátum , len vedieť , ktorý vyhlásenie na vytlačiť na obrazovku . V oboch prípadoch , $ diff hodnota prevedie od sekúnd do dní , a potom na celé číslo od plaváku ( aby sa zabránilo tlače viac desatinných miest ) . Je hodnota záporná , funkcia ABS získa absolútnu hodnotu , v podstate otáčať záporné číslo do kladné číslo . Napríklad " -15 dní " sa stáva " 15 dní . "
6

Uložiť a spustiť program v Perle .

• Predchádzajúca strana: Ako odstrániť posledný prvok Z Perl Zoznam 
• Ďalšia strana: Perl Vyžadovať Vs . Použite