免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3523 | 回复: 17

perl格式化文本请处理一下这个。。有中文。。。 [复制链接]

论坛徽章:
0
发表于 2013-04-07 10:48 |显示全部楼层
本帖最后由 ZR_Linux 于 2014-04-18 15:18 编辑


内容

已删

论坛徽章:
3
未羊
日期:2013-11-18 15:17:06酉鸡
日期:2013-12-06 17:07:16天蝎座
日期:2014-06-11 12:37:07
发表于 2013-04-07 11:16 |显示全部楼层
如果表格固定的话,读取文件,存入数组进行处理~

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-04-07 14:40 |显示全部楼层
如果:
  1. #!/usr/bin/perl
  2. # abc.pl
  3. my @data = do { local $/ = ''; <> };
  4. my @p;
  5. for (@data) {
  6.     my @a = split /\n/;
  7.     my ($zoneid) = $a[4]  =~ /(\d+)$/;
  8.     my $time     = $a[0];
  9.     my ($isp)    = $a[2]  =~ /(.*)\(/;
  10.     my ($ip)     = $a[10] =~ /(\d.*)$/;
  11.     my ($port)   = $a[8]  =~ /(\d+)$/;
  12.     push @p, [ $zoneid, $time, $isp, "http://$ip:$port$/" ];
  13. }
  14. print join "\t", @$_ for [ 'zoneid', "time\t", 'ISP', "ip:port$/" ], @p;
复制代码
  1. perl abc.pl data
复制代码

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-04-07 14:50 |显示全部楼层
  1. zoneid  time            ISP     ip:port
  2. 1009    4月3号 11:00   新浪    http://172.20.234.15:38917
  3. 8001    4月3号 11:00   178     http://172.20.234.12:38899
  4. 1012    4月7日10:00     百度    http://172.20.234.16:38922
  5. 1013    4月7日19:00     百度    http://172.20.234.17:38923
复制代码

论坛徽章:
3
未羊
日期:2013-11-18 15:17:06酉鸡
日期:2013-12-06 17:07:16天蝎座
日期:2014-06-11 12:37:07
发表于 2013-04-07 14:52 |显示全部楼层
回复 4# rubyish


    你速度高。。。。

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-04-07 14:55 |显示全部楼层
墨迹哥 发表于 2013-04-07 10:52
回复 4# rubyish

你速度高

你反应快
sinian126 该用户已被删除
发表于 2013-04-07 15:36 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
3
未羊
日期:2013-11-18 15:17:06酉鸡
日期:2013-12-06 17:07:16天蝎座
日期:2014-06-11 12:37:07
发表于 2013-04-07 16:37 |显示全部楼层
回复 6# rubyish


    你硬了。。。

论坛徽章:
0
发表于 2013-04-09 11:15 |显示全部楼层
本帖最后由 ZR_Linux 于 2014-04-18 15:18 编辑

回复 4# rubyish

呢?
   

论坛徽章:
0
发表于 2013-04-09 11:19 |显示全部楼层
回复 2# 墨迹哥


    格式就是这么多行为一块儿。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP