PERL:


PERL: - . 103


D> ------------------------------------------------------------------------------------------

localtime perlfunc(i); ­ Timc::localtime Time::gmtirae. ­ 3.2.

3.4.

/. /, .

:

$when = $now + Sdifference, $then = Snow - Sdifference,

, ­ Date::Calc CPAN. ­ , Add_Delta_Days ( $offset , ):

use Date Calc qw(Add_Delta_Days),

($y2, $iTi2, $d2) = Add_Dclta_Days($y, $m, $d, Soffset)

, ( , ), Add_Delta_DHMS:

use Date DateCalc qw(Add_Delta_DHMS), ($year2, Smonth2, Sday2, $h2, $m2, $s2) =

Add_Delta_DHMS( $year, Smonth, $day, Shour Smmute, Sseconds, $days_offset, $hour_offset, $minute_offset, $seconds_offset ),

( / ). ­ , ( 55 , 2 , 17 5 ) :

Sbirthtime = 96176750, # 18 1973 , 03 45 50

Sinterval = 5 + #5

17 60 + #17

2 - 60 * 60 + #2


3.5. 蠠 101

55 60 * 60 24, 55 $then = Sbirthtime + Smterval, print 'Then is ", scalar(localtime($then)), \n , Then is Wed Mar 14 06:02:55 1973




- -  - -  - -