求教：如何實(shí)現(xiàn)對(duì)文本中字符串中的數(shù)字進(jìn)行排序

frankhyk

如題，例如原始文本數(shù)據(jù)為：
         delta_9
              delta_1
              delta_5
              delta_0
              delta_3
              delta_8
              delta_2
              delta_1

排序完之后的數(shù)據(jù)應(yīng)為：
delta_0
delta_1
delta_1
delta_2
delta_3
delta_5
delta_8
delta_9

不知道怎么實(shí)現(xiàn)，sort也不大會(huì)用，難道有別的特殊函數(shù)嗎？望版上大俠不吝賜教啊，不勝感激！

zhlong8

use Sort::Naturally;

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

zhlong8

如果數(shù)字部分只有一位的話直接用 sort 就可以了

frankhyk

感謝版主出手相救啊，數(shù)字部分是只有一位，可是用sort怎么能實(shí)現(xiàn)呢，
sort會(huì)先把第一個(gè)字符進(jìn)行排序的吧，我是想讓它按照最后的數(shù)字進(jìn)行
排序啊，版主能否再指點(diǎn)一二？（因?yàn)槲业膒erl里沒(méi)有Sort::Naturally
這個(gè)模塊，我也沒(méi)有權(quán)限來(lái)安裝它。。。）


   

zhlong8

回復(fù) 4# frankhyk


    sort 默認(rèn)是字符串排序比如 'aa' < 'ab', 'aaa' < 'aa' 遇到相等的字符會(huì)比較下一個(gè)直到第一個(gè)不一樣的字符。你這里前面不都一樣嗎有什么關(guān)系

frankhyk

哦，對(duì)不起，我舉的這個(gè)例子不好，實(shí)際我的文本中，數(shù)字前面的字符串也是不相同的。
所以我才覺(jué)得用sort好像行不通.

   

zhlong8

回復(fù) 6# frankhyk


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

    # 對(duì)數(shù)字部分排序，然后用 map 取出原文本
    my @sorted = map $_->[0] , sort { $a->[1] <=> $b->[1]} @data_with_num_part;

frankhyk

回復(fù) 7# zhlong8


    多謝版主哈，達(dá)到了我想要的效果，貴版真是個(gè)好地方，看來(lái)以后得常來(lái)逛。

只是一個(gè)紅薯

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";

復(fù)制代碼

回復(fù) 1# frankhyk


   

mcshell

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

復(fù)制代碼