perl 取日期时间。。

本帖最后由 zhlong8 于 2011-06-23 13:45 编辑

我有一个log文件：
run.log内容如下
========
start time：  Wed Jun 11 22:15:34 CST 2011
.......
...

End time :  Thu  Jun 13  09:55:21 CST 2011

...

========
我想写一个gettime.pl


#!/usr/local/bin/perl
open(LOGFILE, "run.log" );

while( <LOGFILE> ) {
    if ( /^Start time\s+THU(\d+...)2011/ ) {      
        $starttime = $1;
        print ("get the time$startime");
    }
    if ( /end time\s+ （\d+:----/ ) {
        $endtime = $1;
        print ("get end time:$d\n",$endtime);
    }

}
close(LOGFILE);
print ("running starttime at: \n");
....


正则表达式搞不清楚。。。帮忙修改一下，谢谢。
我想取得 start time： 22：15:34
             end time:  09:55:21

请问咋弄？？谢谢。。。

咋都是笑脸？看了晕。

啊。。。。和这个论坛的图片冲突了。。

========
start time：  Wed Jun 11 22:15:34 CST 2011
.......
...

End time :  Thu  Jun 13  09:55:21 CST 2011

...

========
我想写一个gettime.pl

反正就是写一个可以读run.log文件的pl程序，最后打印出来开始时间和结束时间就行了。。谢谢。

/^Start time.*?(\d\d:\d\d:\d\d)/
正常情况下这样就行了，不用写那么详细

回复 sinbagod


    \d+(:\d+){2}