忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
12
最近访问板块 发新帖
楼主: Chinaaa123

自己写了个Perl脚本,但是运行很慢,麻烦各位好汉走过路过帮忙看看 [复制链接]

论坛徽章:
0
发表于 2018-04-04 16:16 |显示全部楼层
回复 4# zhlong8

谢谢你的帮助!思路很清晰好!

论坛徽章:
0
发表于 2018-04-04 16:19 |显示全部楼层
回复 5# laputa73

谢谢你的科普,才知道1分钟可以处理1G,也感谢你的回答!

论坛徽章:
0
发表于 2018-04-04 16:24 |显示全部楼层
回复 6# jason680

谢谢你的回答与帮助,你们都值得我好好学习!THANKS

论坛徽章:
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
发表于 2018-04-04 19:07 |显示全部楼层
perl abc.pl data > ok

abc.pl
  1. #!/usr/bin/perl
  2. # version 26, subversion 1 (v5.26.1)


  3. my ( $ID, $VAL, @IT ) = '@';

  4. while (<>) {
  5.     my ( $id, undef, undef, undef, $val ) = split;
  6.     if ( $id ne $ID ) {
  7.         print @IT;
  8.         ( $ID, $VAL, @IT ) = ( $id, $val, $_ );
  9.     }
  10.     else {
  11.         next if $val < $VAL;
  12.         ( $VAL, @IT ) = $val if $val > $VAL;
  13.         push @IT, $_;
  14.     }
  15. }

  16. print @IT;

  17. __DATA__
  18. $_
复制代码

论坛徽章:
0
发表于 2018-04-08 09:28 |显示全部楼层
回复 14# rubyish

大神,你的代码很简练,谢谢你的回答!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP