在Perl中排序

Question

我是Perl的新手，但遇到了數組排序問題。

例如，如果我的輸入是

@lines =  qw/ S-1.1 A-1.4 V-1.3 /

輸出應按順序排列

A-1.4, V-1.3, S-1.1.

這個想法是整理出基於后隨之而來-的的字符串中。 我嘗試sort {$a <=> $b} @lines但沒有幫助。

請提出一些建議以完成此操作。

Answer 1

use strict;  
use warnings;

my @lines = ("S-1.1", "A-1.4", "V-1.3"); 
@lines = sort { (split /-/, $b)[1] <=> (split /-/, $a)[1] } @lines; 
print join ', ', @lines;

產量

A-1.4, V-1.3, S-1.1

Answer 2

my @lines = qw(S-1.1 A-1.4 V-1.3);
@lines = sort { substr($a, index($a, '-') + 1) <=>
                substr($b, index($b, '-') + 1) } @lines;
print "@lines\n";  #: S-1.1 V-1.3 A-1.4

如果您想在字符串中包含多個點，它將變得更加復雜：

sub pad($) {
  local $_ = $_[0];
  s/^[^-]*?-//;
  s/(\d+)/sprintf("%020d",$1)/ge;  
  $_
}
my @lines = qw(S-1.2.12 B-1.2.9 A-1.4 V-1.3);
@lines = sort { pad($a) cmp pad($b) } @lines;
print "@lines\n";  #: B-1.2.9 S-1.2.12 V-1.3 A-1.4