perl - 如何將 hh:mm:ss 轉換為秒

perl 中有沒有辦法將持續時間 (hh:mm:ss) 轉換為總秒數？

樣本：02:50:30 輸出：10230

以下程序應該這樣做：

$hhmmss="02:50:30";
@arr=split(':',$hhmmss);
$sec=@arr[2];
$sec+=@arr[1]*60;
$sec+=@arr[0]*3600;
print $sec;

$ perl -le '$t=shift;
           ($h,$m,$s) = split /:/, $t;
           print $h * 3600 + $m * 60 + $s' 02:50:30
10230

或者，沒有 $t 變數也一樣：

$ perl -l -e '($h,$m,$s) = split /:/, shift;
             print $h * 3600 + $m * 60 + $s' 02:50:30
10230

引用自：https://unix.stackexchange.com/questions/650636