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

wxusheng

现在有各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

longbow0

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. use strict;
   
6. use warnings;
   
7. 
   
8. while (<DATA>) {
   
9.     next if /^\s*$/;
   
10. 
    
11.     print if /^\D/;
    
12. 
    
13.     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+)/) {
    
14.         print join("\t", ($1, $2, $3, $4, $5, $6, $7, $8)), "\n";
    
15.     }
    
16. }
    
17. 
    
18. exit 0;
    
19. 
    
20. 
    
21. __DATA__
    
22. aa        time        hh        kk        ll
    
23. 262310        1284943062 (2010-09-19 12:37:42)        1284943061 (2010-09-19 12:37:41)        946728000 (2000-01-01 00:00:00)        1198194710 (cc)
    
24. 264735        1284942984 (2010-09-19 12:36:24)        1284942965 (2010-09-19 12:36:05)        1284942967 (2010-09-19 12:36:07)        0 (bb)
    
25. 267177        1284943004 (2010-09-19 12:36:44)        1284942990 (2010-09-19 12:36:30)        1284942991 (2010-09-19 12:36:31)        1198194710 (aa)
    

复制代码

wxusheng

楼上多谢，要是处理文本文件怎么写啊有很多行

珞水的大叔

perl -pe 's/\s\d+\s\((\d[^)]+):\d\d\)/ $1/g;s/\s\([^)]*\)$//g' 文件名

试试这个

珞水的大叔

回复 5# 99超人


    就是让他看一下先，呵呵，免得改了源文件
   重定向一下就可以了

珞水的大叔

回复 7# 99超人

确实……
我忘了以前ne的时候都是自己写的print
我改一下
多谢超人啦

wxusheng

谢谢楼上，会报错啊

D:\CDT_Parse后文件>perl -pe 's/\s\d+\s\((\d[^)]+):\d\d\)/ $1/g;s/\s\([^)]*\)$//g
' CDT_重庆1X呼叫_20100924_150124.dat
Can't find string terminator "'" anywhere before EOF at -e line 1.

D:\CDT_Parse后文件>perl -pe s/\s\d+\s\((\d[^)]+):\d\d\)/ $1/g;s/\s\([^)]*\)$//g
CDT_重庆1X呼叫_20100924_150124.dat
Substitution replacement not terminated at -e line 1.

D:\CDT_Parse后文件>perl -ne s/\s\d+\s\((\d[^)]+):\d\d\)/ $1/g;s/\s\([^)]*\)$//g
CDT_重庆1X呼叫_20100924_150124.dat
Substitution replacement not terminated at -e line 1.

ulmer

回复 1# wxusheng

If the data of row is seperated with tab "\t", the easy way is to use split() method.
i.e.:
my ($aa, $time, $hh, $kk, $ll) = split "\t",  $line, 5;
# then using regex to match time, hh, kk and ll