免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › perl排序问题
最近访问板块 发新帖
查看: 3236 | 回复: 8
打印 上一主题 下一主题

perl排序问题 [复制链接]

chuanwj

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2013-12-23 11:24 |只看该作者 |倒序浏览
有如下文本 test.txt :
lily@163.com
mical@google.com
acb@163.com
abc@126.com
abc@163.com
cherry@qq.com

首先对字母排序，当字母相同时，再对数字排序。
结果如下：

abc@126.com
abc@163.com
acb@163.com
cherry@qq.com
lily@163.com
mical@google.com
kk861123

论坛徽章:
0
2楼 [报告]
发表于 2013-12-23 14:02 |只看该作者
  1. sort test.txt
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
chuanwj

论坛徽章:
0
3楼 [报告]
发表于 2013-12-23 14:10 |只看该作者
这个是可以的。。。

想问下 sort会怎么处理 @这个东西？
有没有不用sort，自己写程序的方法实现呢？

回复 2# kk861123


   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yestreenstars

论坛徽章:
32
处女座 日期:2013-11-20 23:41:20双子座 日期:2014-06-11 17:20:43戌狗 日期:2014-06-16 11:05:00处女座 日期:2014-07-22 17:30:47狮子座 日期:2014-07-28 15:38:17金牛座 日期:2014-08-05 16:34:01亥猪 日期:2014-08-18 13:34:25白羊座 日期:2014-09-02 15:03:55金牛座 日期:2014-11-10 10:23:58处女座 日期:2014-12-02 09:17:52程序设计版块每日发帖之星 日期:2015-06-16 22:20:002015亚冠之塔什干火车头 日期:2015-06-20 23:28:22
4楼 [报告]
发表于 2013-12-23 14:46 |只看该作者
  1. #!/usr/bin/perl

  3. print sort <DATA>;

  5. __DATA__
  6. lily@163.com
  7. mical@google.com
  8. acb@163.com
  9. abc@126.com
  10. abc@163.com
  11. cherry@qq.com
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
jason680

论坛徽章:
145
技术图书徽章 日期:2013-10-01 15:32:13戌狗 日期:2013-10-25 13:31:35金牛座 日期:2013-11-04 16:22:07子鼠 日期:2013-11-18 18:48:57白羊座 日期:2013-11-29 10:09:11狮子座 日期:2013-12-12 09:57:42白羊座 日期:2013-12-24 16:24:46辰龙 日期:2014-01-08 15:26:12技术图书徽章 日期:2014-01-17 13:24:40巳蛇 日期:2014-02-18 14:32:59未羊 日期:2014-02-20 14:12:13白羊座 日期:2014-02-26 12:06:59
5楼 [报告]
发表于 2013-12-23 15:10 |只看该作者
回复 4# yestreenstars

It will get some issue, when data like as below:
lily@163.com
lily@63.com

   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yestreenstars

论坛徽章:
32
处女座 日期:2013-11-20 23:41:20双子座 日期:2014-06-11 17:20:43戌狗 日期:2014-06-16 11:05:00处女座 日期:2014-07-22 17:30:47狮子座 日期:2014-07-28 15:38:17金牛座 日期:2014-08-05 16:34:01亥猪 日期:2014-08-18 13:34:25白羊座 日期:2014-09-02 15:03:55金牛座 日期:2014-11-10 10:23:58处女座 日期:2014-12-02 09:17:52程序设计版块每日发帖之星 日期:2015-06-16 22:20:002015亚冠之塔什干火车头 日期:2015-06-20 23:28:22
6楼 [报告]
发表于 2013-12-23 15:14 |只看该作者
回复 5# jason680
你能提供一个更好的脚本吗？

   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
jason680

论坛徽章:
145
技术图书徽章 日期:2013-10-01 15:32:13戌狗 日期:2013-10-25 13:31:35金牛座 日期:2013-11-04 16:22:07子鼠 日期:2013-11-18 18:48:57白羊座 日期:2013-11-29 10:09:11狮子座 日期:2013-12-12 09:57:42白羊座 日期:2013-12-24 16:24:46辰龙 日期:2014-01-08 15:26:12技术图书徽章 日期:2014-01-17 13:24:40巳蛇 日期:2014-02-18 14:32:59未羊 日期:2014-02-20 14:12:13白羊座 日期:2014-02-26 12:06:59
7楼 [报告]
发表于 2013-12-23 15:22 |只看该作者
本帖最后由 jason680 于 2013-12-23 15:24 编辑

回复 6# yestreenstars


use strict;
use warnings;

my @data = <DATA>;

my @sorted = map  { $_->[0]  }
          sort { $a->[1] cmp $b->[1] }
          map  { my $s=$_; s/(\d+)/sprintf("%10s",$1)/ge;  [ $s, $_] } @data;

print @sorted;

__DATA__
lily@163.com
lily@63.com
mical@google.com
mical@qq.com
acb@163.com
abc@126.com
abc@goo26.com
abc@163.com
cherry@qq.com

   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yestreenstars

论坛徽章:
32
处女座 日期:2013-11-20 23:41:20双子座 日期:2014-06-11 17:20:43戌狗 日期:2014-06-16 11:05:00处女座 日期:2014-07-22 17:30:47狮子座 日期:2014-07-28 15:38:17金牛座 日期:2014-08-05 16:34:01亥猪 日期:2014-08-18 13:34:25白羊座 日期:2014-09-02 15:03:55金牛座 日期:2014-11-10 10:23:58处女座 日期:2014-12-02 09:17:52程序设计版块每日发帖之星 日期:2015-06-16 22:20:002015亚冠之塔什干火车头 日期:2015-06-20 23:28:22
8楼 [报告]
发表于 2013-12-23 15:33 |只看该作者
回复 7# jason680
不明觉厉~

   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
afukada

论坛徽章:
0
9楼 [报告]
发表于 2013-12-23 16:09 |只看该作者
本帖最后由 afukada 于 2013-12-23 16:10 编辑
  1. ~> cat test.txt
  2. lily@163.com
  3. mical@google.com
  4. acb@163.com
  5. abc@126.com
  6. abc@163.com
  7. cherry@qq.com
  8. lily@63.com
  9. ~> sort -t @ -k1,1 -k2,2n test.txt
  10. abc@126.com
  11. abc@163.com
  12. acb@163.com
  13. cherry@qq.com
  14. lily@63.com
  15. lily@163.com
  16. mical@google.com
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP