设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › Perl › 【练习-042】将文本数值按尾数分类
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 14551|回复: 1

[原创代码] 【练习-042】将文本数值按尾数分类

[复制链接]
sxw
发表于 2011-10-9 15:34:00 | 显示全部楼层 |阅读模式

  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;

  6. my @num;
  7. push @num,split while(<DATA>);
  8. for my $z(0..9) {
  9.     print "$z ";
  10.     for (@num) {
  11.             print "$_ " if /$z$/;
  12.             }
  13.         print "\n";
  14. }
  15. __DATA__
  16. 530 862 477 448
  17. 407 68 191 157 929
  18. 76 866 730 445 665
  19. 591 99 285 868
  20. 352 64 196 755 220
  21. 922 245 966 294 118
  22. 839 757 564 701 391
  23. 629 794 33 253
  24. 110 349 604 962 868
  25. 846 20 637 11 782
  26. 233 10 23 593 51
复制代码
回复

举报

sxw
 楼主| 发表于 2011-10-9 15:34:56 | 显示全部楼层
加入数值排序:

  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;

  6. my @num;
  7. push @num,split while(<DATA>);
  8. for my $z(0..9) {
  9.     print "$z ";
  10.     for (sort {$a <=> $b} @num) {
  11.             print "$_ " if /$z$/;
  12.             }
  13.         print "\n";
  14. }
  15. __DATA__
  16. 530 862 477 448
  17. 407 68 191 157 929
  18. 76 866 730 445 665
  19. 591 99 285 868
  20. 352 64 196 755 220
  21. 922 245 966 294 118
  22. 839 757 564 701 391
  23. 629 794 33 253
  24. 110 349 604 962 868
  25. 846 20 637 11 782
  26. 233 10 23 593 51
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 22:41 , Processed in 0.016462 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表