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