對如下ip進行排序：

134.102.9.87
134.102.5.43
134.102.1.2
134.102.6.7

可以使用如下perl代碼實現：

1 use strict; 2 use warnings; 3 use 5.14.2; 4 5 open (my $fh, "<ips.txt") or die "$!"; 6 my @ips; 7 my $i; 8 while(<$fh>){ 9 $_ =~ s/^\s+|\s+$//g; 10 $_ =~ s/\n\r|\n|\r//g; 11 $ips[$i++] = $_; 12 } 13 14 my @r; 15 my @r2; 16 17 my @ips_sorted = sort { 18 @r = (split/\./, $a) and 19 @r2 = (split/\./, $b) and 20 $r[0] gt $r2[0] or 21 $r[1] gt $r2[1] or 22 $r[2] gt $r2[2] or 23 $r[3] gt $r2[3] 24 } @ips; 25 foreach my $key (@ips_sorted){ 26 say $key; 27 } 28 close $fh;

?

轉載于:https://www.cnblogs.com/zjfdlut/archive/2013/05/12/3073810.html

總結

以上是生活随笔為你收集整理的perl排序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。