網路管理語言 Perl 入門與實作: | ||
---|---|---|
<<< Previous | 4. Perl 的資料型態 | Next >>> |
如何取得現在的日期時間呢?
利用 localtime 函式,localtime 會傳回一個包含主機時間(年月日時分秒)的陣列,用法如下:
#! /usr/bin/perl # 取得秒, 分, 時, 日, 月, 年 ($sec,$min,$hour,$day,$mon,$year)=localtime(time); # 月比實際少一, 所以加 1 $mon++; # 判斷是否為個位數, 若是則在前面補 0 if (length ($mon) == 1) {$mon = '0'.$mon;} if (length ($day) == 1) {$day = '0'.$day;} if (length ($hour) == 1) {$hour = '0'.$hour;} if (length ($min) == 1) {$min = '0'.$min;} if (length ($sec) == 1) {$sec = '0'.$sec;} # 年比實際西元年少 1900, 所以加上 1900 $year+=1900; # 組合成完整的時間 $alltime="$year/$mon/$day,$hour:$min:$sec"; print $alltime, "\n\n"; |
<<< Previous | Home | Next >>> |
4.1.18 亂數 | Up | 4.1.20 編碼加密處理 |