习鞘9-5.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 14 行

$bree = 361535725;          # 16 Jun 1981, 4:35:25
$nat  =  96201950;          # 18 Jan 1973, 3:45:50
$difference = $bree - $nat;
print "There were $difference seconds between Nat and Bree\n";
$seconds    =  $difference % 60;
$difference = ($difference - $seconds) / 60;
$minutes    =  $difference % 60;
$difference = ($difference - $minutes) / 60;
$hours      =  $difference % 24;
$difference = ($difference - $hours)   / 24;
$days       =  $difference % 7;
$weeks      = ($difference - $days)    /  7;
print "($weeks weeks, $days days, $hours:$minutes:$seconds)\n";