您好,登錄后才能下訂單哦!
小編給大家分享一下Perl中對混合字符串進(jìn)行排序的方法,希望大家閱讀完這篇文章后大所收獲,下面讓我們一起去探討吧!
Perl中的排序可以使用預(yù)定義的函數(shù)“sort”來完成;此函數(shù)使用快速排序算法對傳遞給它的數(shù)組進(jìn)行排序。
方法一:sort()+substr()函數(shù)
為了比較使用數(shù)字的字符串,從字符串中獲取數(shù)字是非常重要的。我們可以根據(jù)這些數(shù)字,對字符串?dāng)?shù)組進(jìn)行排序。
substr()函數(shù)可以用于從字符串中提取這些數(shù)字。此函數(shù)將字符串中不包括數(shù)字的字符數(shù)作為參數(shù)。
注意:數(shù)組中的所有字母數(shù)字字符串必須具有相同的大小。
示例:
use strict; use 5.010; # 用字母數(shù)字字符串定義數(shù)組值 my @x = qw(prin_4 Keys_8 pubg_12); print "原數(shù)組:\n"; print join " , ", @x; # 使用sort()和substr()函數(shù)對數(shù)組進(jìn)行排序 my @y = sort { substr($a, 5) <=> substr($b, 5) } @x; # 輸出排序的數(shù)組 print "\n\n排序的數(shù)組:\n"; print join " , ", @y;
輸出:
原數(shù)組: prin_4 , Keys_8 , pubg_12 排序的數(shù)組: prin_4 , Keys_8 , pubg_12
方法二:sort()+正則表達(dá)式
如果字母數(shù)字字符串有點(diǎn)復(fù)雜,執(zhí)行上面的代碼是一項(xiàng)艱巨的工作,因此,為了更簡單,我們可以使用正則表達(dá)式。
例如:如果數(shù)組包含“Keys_8_keys”,那么很難處理這種情況,因此為了正確過濾字符串中的數(shù)字,可以使用正則表達(dá)式。
注意:此方法不關(guān)心字母數(shù)字字符串是否具有不同的大小。
示例:
use strict; use 5.010; # Sample string to extract # number from my $str = 'Key_8_key'; # Regular expression to extract the number my ($number) = $str =~ /(\d+)/; # 輸出提取的數(shù)字 print "從Key_8_key中提取的數(shù)字是:$number\n"; # 用字母數(shù)字字符串定義數(shù)組 my @x = qw(pri_4 Key_8_key pubg_12); # 排序前的數(shù)組 print "\n排序前的數(shù)組:\n"; print join " , ", sort @x; # 使用正則表達(dá)式 my @y = sort { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0] } @x; # 排序后數(shù)組 print "\n\n排序后數(shù)組\n"; print join " , ", @y;
輸出:
從Key_8_key中提取的數(shù)字是:8 排序前的數(shù)組: Key_8_key , pri_4 , pubg_12 排序后數(shù)組 pri_4 , Key_8_key , pubg_12
注:如果數(shù)組包含其中某些字符串中沒有數(shù)字的字符串,則可以使用0代替該數(shù)字。要檢查字符串中是否沒有數(shù)字,請使用以下代碼:
my @y = sort { (($a =~ /(\d+)/)[0] || 0) (($b =~ /(\d+)/)[0] || 0) } @x;
示例:
#!/usr/bin/perl use strict; use 5.010; # 混合類型字符串的數(shù)組 my @x = qw(pri_4 Key pubg_12); # 使用正則表達(dá)式 my @y = sort { (($a =~ /(\d+)/)[0] || 0) <=> (($b =~ /(\d+)/)[0] || 0) } @x; # 輸出排序的數(shù)組 print "排序后數(shù)組:\n"; print join " , ", @y;
輸出:
排序后數(shù)組: Key , pri_4 , pubg_12
看完了這篇文章,相信你對Perl中對混合字符串進(jìn)行排序的方法有了一定的了解,想了解更多相關(guān)知識,歡迎關(guān)注億速云行業(yè)資訊頻道,感謝各位的閱讀!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報,并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。