perl 计算耗时（时分秒）

[root@localhost perl]# cat a1.pl

use Time::Local;

$start_time='201011';

$s_hour=substr($start_time,0,2);

$s_min=substr($start_time,2,2);

$s_sec=substr($start_time,4,2);

$start=timelocal($s_sec,$s_min,$s_hour,'28','02','2023');

$stop_time='201123';

$e_hour=substr($stop_time,0,2);

$e_min=substr($stop_time,2,2);

$e_sec=substr($stop_time,4,2);

$stop=timelocal($e_sec,$e_min,$e_hour,'28','02','2023');

$cost= $stop - $start;

print $cost."\n";

[root@localhost perl]# perl a1.pl

72