免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1750 | 回复: 6

这样数据怎么写代码 [复制链接]

论坛徽章:
0
发表于 2011-12-24 04:57 |显示全部楼层
本帖最后由 小鹭 于 2011-12-24 04:58 编辑

有一组数据

ID 1
1
2
3
4
ID 2
1
2
3
4
ID 3
1
2
3
4

想变成

ID 1
1,2,3,4
ID 2
1,2,3,4
ID 3
1,2,3,4

请问该怎么写代码?谢谢了。

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2011-12-24 10:04 |显示全部楼层
#!/usr/bin/perl -w

use 5.010;

my @s;

while (<DATA>) {
    chomp;
    if (/^ID/ .. /^ID/) {
        say join ',', @s;
        say;
        @s = ();
    }
    else {
        push @s, $_;
    }
}

say join ',', @s if @s;

__DATA__
ID 1
1
2
a
4
ID 2
1
2
3
4
ID 3
1
z
3
4

论坛徽章:
0
发表于 2011-12-24 10:13 |显示全部楼层
小鹭 发表于 2011-12-24 04:57
有一组数据

ID 1

有规律话比较好整。
$ perl -nlpe '$\= /^ID|4$/ ? "\n" : " " ' data.txt  
ID 1
1 2 3 4
ID 2
1 2 3 4
ID 3
1 2 3 4

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2011-12-24 10:20 |显示全部楼层
这个,很强

不过 np 一起用没什么意义吧?直接用 p 应该就可以了

论坛徽章:
0
发表于 2011-12-24 10:53 |显示全部楼层
zhlong8 发表于 2011-12-24 10:04
#!/usr/bin/perl -w

use 5.010;

直接 if (/^ID/) 就可以了,这里没用到范围吧

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2011-12-25 19:31 |显示全部楼层
xfoucs 发表于 2011-12-24 10:53
直接 if (/^ID/) 就可以了,这里没用到范围吧

嗯,你说的对。 .. 还是不太会用现在,虽然努力下能看得懂,结果一用就错

论坛徽章:
0
发表于 2011-12-26 09:34 |显示全部楼层
仙子果然强大,一行就搞定了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP