#!/usr/bin/perl
use Class::Date qw(date);
$unixtime = date("2002-03-03 10:06:54")->epoch;
print $unixtime ."\n";
$unixtime = date("2002-03-03 10:06");
print $unixtime ."\n";
转载于:https://www.cnblogs.com/morebetter/archive/2007/08/14/855468.html