Perl 字符串操作 以及 自定义排序

发布时间:2020-07-29 13:21:13 作者:nxf198609
来源:网络 阅读:4696
  1. #!/usr/bin/perl -w  

  2. #########################################################################  

  3. # File Name: test6.pl  

  4. #########################################################################  

  5.   

  6. #index(str,substr,position),在大字符串中查找  

  7. #position可以设置起始位置,返回位置数  

  8. my $stuff = "hello word";  

  9. my $where = index($stuff, "wor");  

  10. print "where: $where\n";  

  11.   

  12. my $where1 = index($stuff, "w");  

  13. print "where1: $where1\n";  

  14.   

  15. my $where2 = index($stuff, "w", 6);  

  16. print "where2: $where2\n";  

  17.   

  18. # substr($string, $init_position, $length) 处理部分字符串  

  19. $substr1 = substr("hello world", 6, 5); #得到substr1: world  

  20. print "substr1: $substr1\n";  

  21. #可以作替换字符串使用  

  22. substr($substr1,0,0)="hello ";  

  23. print "substr1: $substr1\n"#substr1: hello world  

  24. #替换功能也可以使用第四个参数  

  25. $string = "hello world";  

  26. substr($string, 0, 5, "xxxxx");  

  27. print "string: $string\n";  

  28.   

  29. #sprintf 格式化数据   

  30. $year = "2014";  

  31. $month = 8;  

  32. $day = 2.0;  

  33. $data_tag = sprintf("%s/%d/%.3f", $year, $month, $day);  

  34. print "data_tag: $data_tag\n"#data_tag: 2014/8/2.000  

  35.   

  36. #排序  

  37. #排序子函数,按数字排序  

  38. sub by_num{  

  39.     $a <=> $b  

  40. }  

  41. @nums = (1,4,22,5,33,10,12);  

  42. print "nums: @nums\n";  

  43. @result1 = sort @nums;  

  44. print "result1: @result1\n"#只会把数字当作字符排序  

  45. @result2 = sort by_num @nums;  

  46. print "result2: @result2\n"#会根据数值大小进行排序  

  47.   

  48. #对hash排序  

  49. my %socre = (  

  50.     "kevin" => 100,  

  51.     "xiang" => 50,  

  52.     "jie" => 150,  

  53.     "xxx" => 1,  

  54.     "yyy" => 50  

  55. );  

  56. @socre1 = %socre;  

  57. print "socre1: @socre1\n"#socre1: xiang 50 jie 150 kevin 100 xxx 1 yyy 50  

  58.   

  59. #排序子函数,根据value 从小到大   

  60. #如果是数字直接用 <=> 如果是字符串用 cmp  

  61. sub by_socre_value{  

  62.     $socre{$a} <=> $socre{$b}  

  63. }  

  64. @socre2 = sort by_socre_value keys %socre;  

  65. print "socre2: @socre2\n"#socre2: xxx xiang yyy kevin jie  

  66.   

  67.   

  68. %socre = (  

  69.     "kevin" => 100,  

  70.     "xiang" => 50,  

  71.     "jie" => 150,  

  72.     "xxx" => 1,  

  73.     "yyy" => 50  

  74. );  

  75. #根据value 从小到大, 如果value相同,则根据key字母反序  

  76. #如果还有很多个条件,可以加or再限制  

  77. sub by_socre_value_and_key{  

  78.     $socre{$a} <=> $socre{$b}  

  79.     or  

  80.     $b cmp $a;  

  81. }  

  82. @socre3 = sort by_socre_value_and_key keys %socre;  

  83. print "socre3: @socre3\n"#socre3: xxx yyy xiang kevin jie  




推荐阅读:
  1. Perl中对混合字符串进行排序的方法
  2. Perl中实现堆栈的方法

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

perl 符串

上一篇:Intellij IDEA中如何设置一次性折叠所有Java代码的快捷键

下一篇:什么是vim中退出不保存的命令

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》