原来perl还是有内置time_diff功能D... use Time::Local

title:原来perl还是有内置time_diff功能D... use Time::Local
区区把这个问题放到chinaunix论坛上，结果版主flw给了个完美的答案~~

use Time::Local; $time1 = timelocal( 0, 0, 0, 15, 7, 107 ); $time2 = timelocal( 0, 0, 0, 15, 4, 107 ); print scalar localtime( $time1 ), "/n"; print scalar localtime( $time2 ), "/n"; $days = ( $time1 - $time2 ) / 86_400; print $days; 而 Time::Local 正是 Perl 的标准模块。

这说明区区看帮助的能力有待提升啊。。

--abstract
(后来chinaunix的flw帮区区在标准模块中找到这个功能了)
总结如下，算日期时间差的话：
perl   ->使用 Time::Local
python ->使用 datetime模块
erlang ->使用 calendar模块