转换为纪元并返回

Question

我已成功使用以下两个 perl 命令行：

perl -e 'use Time::Local; print timelocal(7,51,10,22,3,2014), "\n";'

返回1398163867, 和

perl -e 'print scalar(localtime(1398163867)), "\n"'

返回Tue Apr 22 10:51:07 2014

我想做的是将7,51,10,22,3,2014, 和替换1398163867为包含这些值的变量。我怎样才能做到这一点？

Answer 1

如果您指的是 shell 变量：

t=7,51,10,22,3,2014
perl -MTime::Local -le 'print timelocal split ",", shift' -- "$t"

t=1398163867
perl -le 'print scalar localtime shift' -- "$t"