Chinaunix

标题: 关于时间的处理,求解 [打印本页]

作者: Qiangxi 时间: 2009-10-19 03:34
标题: 关于时间的处理,求解
原文件有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 时间: 2009-10-19 06:25

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

复制代码

作者: 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'#"

作者: ywlscpl 时间: 2009-10-19 08:46

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 时间: 2009-10-19 09:14
标题: 回复 #1 Qiangxi 的帖子
1楼的原文件是三行还是两行？

作者: cxfcxf 时间: 2009-10-19 09:19

原帖由 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 时间: 2009-10-19 09:43
正则

$ 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 时间: 2009-10-19 10:22
标题: 回复 #4 ywlscpl 的帖子
解答好快啊，今天又学了一招，但是我发现你的答案和lz的要求有点不一样，我修改了下
这是你的

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','
'330829D066200712280001','唐龙','920820660711061','320829','江苏','2007-12-28 23:25','215','320829D066','1980-10-19','

复制代码

我的

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
'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','

复制代码

作者: ywlscpl 时间: 2009-10-19 10:29
标题: 回复 #8 over12 的帖子
哦，时间格式要补全

作者: over12 时间: 2009-10-19 10:30
标题: 回复 #9 ywlscpl 的帖子
你的awk好强啊，以后要多像你学习

作者: ywlscpl 时间: 2009-10-19 10:35
标题: 回复 #10 over12 的帖子
相互学习，共同提高

作者: blackold 时间: 2009-10-19 11:19
标题: 回复 #2 cxfcxf 的帖子
, - :不用\吧, g也可以不要。

作者: lucash 时间: 2009-10-19 11:53
sed -r 's/(,[^0-9]....)(..)(..)((..)(..))?([^0-9],)/\1-\2-\3 \5:\6:00\7/g;s/ ::00//' file

作者: chinaglwo 时间: 2009-10-19 11:57
标题: 回复 #4 ywlscpl 的帖子
学习了 substr ,强大

作者: cxfcxf 时间: 2009-10-19 12:09

原帖由 blackold 于 2009-10-19 11:19 发表
, - :不用\吧, g也可以不要。

谢谢黑哥指教

主要是我从来不记什么要什么不要的一律加\的.....不用去思考这个还是人懒.....

作者: blackold 时间: 2009-10-19 12:17
标题: 回复 #15 cxfcxf 的帖子
的确是个保险的方法！

作者: Qiangxi 时间: 2009-10-20 14:40
谢谢以上各位神仙

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)