リスト3：現在の日時を表示するperlのプログラム #!/usr/bin/perl #↓日時を取得 # (秒、分、時、日、月、年、曜日、1月1日からの経過日数、夏時間フラグ) ($sec, $min, $hour, $mon, $year, $wday, $yday, $isdst) = localtime(time); #↓月は0から始まるので1を加算 $mon++; print "$year/$mon/$day, $hour:$min:$sec\n"; exit; 本文へ戻る