perl获取时间

sub getDate {       my $DATE = "0";       # Get the date       ($day, $month, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0];       # Reformat numbers to have two digits       $day = sprintf ( "%.2d", $day % 100 );       $month++;       $month = sprintf ( "%.2d", ($month++) % 100 );       $hour = sprintf ( "%.2d", $hour % 100 );       $min = sprintf ( "%.2d", $min % 100 );       $sec = sprintf ( "%.2d", $sec % 100 );       # Fix the year       $year = $year + 1900;       # Format the date.       $DATE = "$day$month$year$hour$min$sec";       # Return the date       return $DATE;}

      1、查看时间和日期

              date

      2、设置时间和日期

           将系统日期设定成1996年6月10日的命令

              date -s 06/22/96

           将系统时间设定成下午1点52分0秒的命令

              date -s 13:52:00 

      3. 将当前时间和日期写入BIOS，避免重启后失效

              hwclock -w