Ich habe ein Array mit String-Werte, die es zu klären, aber wenn ein Wert beginnt mit (regex) 0 ^ [SV] Es sollte am Anfang des Arrays. Ansonsten sollte das Array sortiert normalerweise ASCII-Art.

Bitte helfen Sie mir die Sub, die an das Art-Funktion.

zeigen einige Beispiele

Es sieht wie folgt vor:

und nach

Hier ist eine Idee
1) wurde durch die einzelnen Elemente des Arrays, ob ^ 0 [SV], wenn ja, Push-to-array1. zur gleichen Zeit, diejenigen, die nicht ^ 0 [SV], Push-to-array2
2) Art array1 (mit Art-Funktion), und array2
3) an der neuen Arrays zusammen, indem array2 hinter array1

Schreiben Sie Ihre eigene Art-sub, mehr in perldoc-f sort

Danke. Habe ich es aus.

sub Bysite {
    if ( $a =~ /^0[SV]/ ) {
        return -1;
    }
    elsif ( $b =~ /^0[SV]/ ) {
        return 1;
    }
    lc($a) cmp lc($b);
}

@array = sort Bysite @array;

Das ist eine gute Lösung, aber es wird nicht sortieren Sie Ihre Probe Array in das, was Sie auf dem Laufenden:

0S09
0S22
0V54
0V72
0A13
0H98
0L43
EL24
STB45

Arten es ein wenig anders:

0S22 <--
0S09 <--
0V54
0V72
0A13
0H98
0L43
EL24
STB45

aber vielleicht nahe genug ist OK