小編給大家分享一下Perl中對(duì)混合字符串進(jìn)行排序的方法，希望大家閱讀完這篇文章后大所收獲，下面讓我們一起去探討吧！

長(zhǎng)安網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)自2013年起到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

Perl中的排序可以使用預(yù)定義的函數(shù)“sort”來(lái)完成；此函數(shù)使用快速排序算法對(duì)傳遞給它的數(shù)組進(jìn)行排序。

方法一：sort()+substr()函數(shù)

為了比較使用數(shù)字的字符串，從字符串中獲取數(shù)字是非常重要的。我們可以根據(jù)這些數(shù)字，對(duì)字符串?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ù)對(duì)數(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)艱巨的工作，因此，為了更簡(jiǎn)單，我們可以使用正則表達(dá)式。

例如：如果數(shù)組包含“Keys_8_keys”，那么很難處理這種情況，因此為了正確過(guò)濾字符串中的數(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ù)組包含其中某些字符串中沒(méi)有數(shù)字的字符串，則可以使用0代替該數(shù)字。要檢查字符串中是否沒(méi)有數(shù)字，請(qǐng)使用以下代碼：

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

看完了這篇文章，相信你對(duì)Perl中對(duì)混合字符串進(jìn)行排序的方法有了一定的了解，想了解更多相關(guān)知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝各位的閱讀！

分享名稱：Perl中對(duì)混合字符串進(jìn)行排序的方法-創(chuàng)新互聯(lián)
網(wǎng)頁(yè)路徑：http://jinyejixie.com/article16/deccgg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、服務(wù)器托管、自適應(yīng)網(wǎng)站、云服務(wù)器、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)