关于时间的处理,求解

Qiangxi

原文件有400万行格式如下
'3306020159210012280003','姚一煜','020611098901254036','320611','上海','200712282210','103','3206020159','19781210','
'330829D066200712280001','唐龙','920820660711061','320829','江苏','200712282325','215','320829D066','19801019','

要求处理格式如下
'3306020159210012280003','姚一煜','020611098901254036','320611','上海','2007-12-28 22:10:00','103','3206020159','1978-12-10','
'330829D066200712280001','唐龙','920820660711061','320829','江苏','2007-12-28 23:25:00','215','320829D066','1980-10-19','

第六段(以','为分隔符)后加00,并将字符内的数字转变为datetime格式(年月后添加-,日后添加空隔,时与分后添加
第九段(以','为分隔符)将字符变为date格式(年月后添加-)

cxfcxf

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my @array;
   
8. 
   
9. while (<DATA>) {
   
10.     @array = split /\,/;
    
11.     $array[5] =~ s/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})/$1\-$2\-$3\ $4\:$5\:00/g;
    
12.     $array[8] =~ s/(\d{4})(\d{2})(\d{2})/$1\-$2\-$3/g;
    
13.     print join("," ,@array);
    
14. }
    
15. 
    
16. __DATA__
    
17. '3306020159210012280003','YYY','020611098901254036','320611','sh','200712282210' ,'103','3206020159','19781210','
    
18. '330829D066200712280001','TY','920820660711061','320829','js','200712282325','215','320829D066','19801019','
    

复制代码

sunbw001

sed  "s#'\([0-9]\{4,4\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)'#'\1-\2-\3'#" data|sed "s#'\([0-9]\{4,4\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)'#'\1-\2-\3 \4:\5:00'#"

ywlscpl

1. awk 'BEGIN{FS=OFS=","}{$6=substr($6,1,5)"-"substr($6,6,2)"-"substr($6,8,2)" "substr($6,10,2)":"substr($6,12,3);$9=substr($9,1,5)"-"substr($9,6,2)"-"substr($9,8,3)}1' file

复制代码

blackold

1楼的原文件是三行还是两行？

cxfcxf

原帖由 sunbw001 于 2009-10-19 08:27 发表
sed  "s#'\([0-9]\{4,4\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)'#'\1-\2-\3'#" data|sed "s#'\([0-9]\{4,4\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)\([0-9]\{2,2\}\)'#'\1-\2-\3 \4:\5:00'#"

你这个不好的 如果其他列也是这个8位 或者12位 也会被分割

blackold

正则

1. 
   
2. $ sed -r 's/(.[0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([^,]*(,[^,]*){2},.[0-9]{4})([0-9]{2})([0-9]{2}.,.$)/\1-\2-\3 \4:\5:00\6-\8-\9/' urfile
   

复制代码

[ 本帖最后由 blackold 于 2009-10-19 10:35 编辑 ]

over12

解答好快啊，今天又学了一招，但是我发现你的答案和lz的要求有点不一样，我修改了下
这是你的

1. awk 'BEGIN{FS=OFS=","}{$6=substr($6,1,5)"-"substr($6,6,2)"-"substr($6,8,2)" "substr($6,10,2)":"substr($6,12,3);$9=substr($9,1,5)"-"substr($9,6,2)"-"substr($9,8,3)}1' test'3306020159210012280003','姚一煜','020611098901254036','320611','上海','2007-12-28 22:10','103','3206020159','1978-12-10','
   
2. '330829D066200712280001','唐龙','920820660711061','320829','江苏','2007-12-28 23:25','215','320829D066','1980-10-19','

复制代码

我的

1. 
   
2. awk 'BEGIN{FS=OFS=","}{$6=substr($6,1,5)"-"substr($6,6,2)"-"substr($6,8,2)" "substr($6,10,2)":"substr($6,12,2)":""00"substr($6,14,1);$9=substr($9,1,5)"-"substr($9,6,2)"-"substr($9,8,3)}1' test
   
3. '3306020159210012280003','姚一煜','020611098901254036','320611','上海','2007-12-28 22:10:00','103','3206020159','1978-12-10','
   
4. '330829D066200712280001','唐龙','920820660711061','320829','江苏','2007-12-28 23:25:00','215','320829D066','1980-10-19','
   

复制代码

ywlscpl

哦，时间格式要补全

over12

你的awk好强啊，以后要多像你学习