当前位置：首页 → 问答吧 → 帮忙看看这个问题怎么办啊

帮忙看看这个问题怎么办啊

时间：2010-09-29

来源：互联网

现在有各TEXT，需要括号内的时间分裂出来怎么办啊，如下表
aa time hh kk ll
262310 1284943062 (2010-09-19 12:37:42) 1284943061 (2010-09-19 12:37:41) 946728000 (2000-01-01 00:00:00) 1198194710 (cc)
264735 1284942984 (2010-09-19 12:36:24) 1284942965 (2010-09-19 12:36:05) 1284942967 (2010-09-19 12:36:07) 0 (bb)
267177 1284943004 (2010-09-19 12:36:44) 1284942990 (2010-09-19 12:36:30) 1284942991 (2010-09-19 12:36:31) 1198194710 (aa)

需要把上面这个表变成下面这各表，怎么实现啊这只是其中几列，还有好多这种列都要变呢

aa time hh kk ll
262310 2010-9-19 12:37 2010-9-19 12:37 2000-1-1 0:00 1198194710
264735 2010-9-19 12:36 2010-9-19 12:36 2010-9-19 12:36 0
267177 2010-9-19 12:36 2010-9-19 12:36 2010-9-19 12:36 1198194710

作者: wxusheng 发布时间: 2010-09-29

#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
next if /^\s*$/;
print if /^\D/;
if (/^(\d+).+?$([\d\-]+)\s(\d{1,2}:\d{1,2}).+?\(([\d\-]+)\s(\d{1,2}:\d{1,2}).+?\(([\d\-]+)\s(\d{1,2}:\d{1,2}):\d+$\s+(\d+)/) {
print join("\t", ($1, $2, $3, $4, $5, $6, $7, $8)), "\n";
}
}
exit 0;
__DATA__
aa time hh kk ll
262310 1284943062 (2010-09-19 12:37:42) 1284943061 (2010-09-19 12:37:41) 946728000 (2000-01-01 00:00:00) 1198194710 (cc)
264735 1284942984 (2010-09-19 12:36:24) 1284942965 (2010-09-19 12:36:05) 1284942967 (2010-09-19 12:36:07) 0 (bb)
267177 1284943004 (2010-09-19 12:36:44) 1284942990 (2010-09-19 12:36:30) 1284942991 (2010-09-19 12:36:31) 1198194710 (aa)

复制代码