平台 论坛 博客 文库 | |
查看:
5028
|
回复:
15
|
这个问题适不适合perl来处理 [复制链接] |
![]() |
5可用积分
最佳答案#!/usr/bin/perluse strict;use warnings;my @data;while () { chomp; push @data, $_;}@data = sort {(split / /, $a)[0] (split / /, $b)[0]} @data;print "$_\n" for @data;__DATA__192412 23172 761 24546 156680 comment137208 1756 28 2028 16760 comment27048 548 4 1805 1800 comment316528 759 0 328 80 ...
| |
|
||
|
| |
|
||
|
| |
|
||
|
| |
|
||
![]() |
回复 #2 福瑞哈哥 的帖子
| |
|
||
|
| |
|
||
![]() |
回复 #3 cobrawgl 的帖子
| |
|
||
|
| |
|
||
![]() |
回复 #5 cobrawgl 的帖子
| |
|
||
![]() |
回复 #9 cobrawgl 的帖子
| |
|
||
北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员 联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处
清除 Cookies - ChinaUnix - Archiver - WAP - TOP |