求教：如何实现对文本中字符串中的数字进行排序

frankhyk

如题，例如原始文本数据为：
         delta_9
              delta_1
              delta_5
              delta_0
              delta_3
              delta_8
              delta_2
              delta_1

排序完之后的数据应为：
delta_0
delta_1
delta_1
delta_2
delta_3
delta_5
delta_8
delta_9

不知道怎么实现，sort也不大会用，难道有别的特殊函数吗？望版上大侠不吝赐教啊，不胜感激！

zhlong8

use Sort::Naturally;

@result = nsort qw( delta_9
              delta_1
              delta_5
              delta_0
              delta_3
              delta_8
              delta_2
              delta_1);

zhlong8

如果数字部分只有一位的话直接用 sort 就可以了

frankhyk

感谢版主出手相救啊，数字部分是只有一位，可是用sort怎么能实现呢，
sort会先把第一个字符进行排序的吧，我是想让它按照最后的数字进行
排序啊，版主能否再指点一二？（因为我的perl里没有Sort::Naturally
这个模块，我也没有权限来安装它。。。）


   

zhlong8

回复 4# frankhyk


    sort 默认是字符串排序比如 'aa' < 'ab', 'aaa' < 'aa' 遇到相等的字符会比较下一个直到第一个不一样的字符。你这里前面不都一样吗有什么关系

frankhyk

哦，对不起，我举的这个例子不好，实际我的文本中，数字前面的字符串也是不相同的。
所以我才觉得用sort好像行不通.

   

zhlong8

回复 6# frankhyk


    my @data = qw(a1 b4 c123 d328 z32 m10);
    #提出数字部分
    my @data_with_num_part;
    for (@data) {
        die "$_ don't have num part" unless $_ =~ /(\d+)/;
        push @data_with_num_part, [$_, $1]; #将文本和它的数字部分打包成一个数组
    }

    # 对数字部分排序，然后用 map 取出原文本
    my @sorted = map $_->[0] , sort { $a->[1] <=> $b->[1]} @data_with_num_part;

frankhyk

回复 7# zhlong8


    多谢版主哈，达到了我想要的效果，贵版真是个好地方，看来以后得常来逛。

只是一个红薯

1. use v5.016;
   
2. use Modern::Perl;
   
3. my @data=qw(delta_9 delta_1 delta_5 delta_0 delta_3 delta_8 delta_2 delta_1);
   
4. my @result=
   
5. map $_->[0],
   
6. sort{$a->[1]<=>$b->[1]}
   
7. map{[$_,/(\d+)/]}
   
8. @data;
   
9. say "@result";

复制代码

回复 1# frankhyk


   

mcshell

1. map{print "$_->[0]\n"}sort{$a->[1]<=>$b->[1]}map{/([^\d]+)(\d+)/;[$_,$2]}@data

复制代码