[perl]时间格式转化

xufengnju

28/Jun/2009:00:00:20 +0800
有如上的时间格式（apache 日志），请问如何转换成 秒数（类似

[root@test1 log]#  date +%s
1246524092

） 啊？

有什么模块比较合适啊？perl再调用shell的话，性能可能有问题。

churchmice

Time::Local

小公猫

自己计算

xufengnju

谢谢，我调用的那个系统 date命令转化的，有点慢。试试你说的这个方法。

HF.SKY000

用UnixDate可以转换。。。

unix666

1. 
   
2. Date::Parse
   
3. 
   
4. use Date::Parse;
   
5. $i = '28/Jun/2009:00:00:20 +0800';
   
6. $i = str2time($i) ;
   
7. print $i;
   
8. 
   

复制代码

运行结果：1246118420

[ 本帖最后由 unix666 于 2009-7-6 19:57 编辑 ]