Ik heb een array vol string waarden die moeten worden gesorteerd, maar als een waarde die begint met (regex) 0 ^ [SV] moet worden aan het begin van de array. Anders is de array moet worden gesorteerd normaal gebruik van ascii sorteren.

Please help me het deelgebied doorberekenen aan de soort functie.

tonen enkele voorbeelden

Het zal er zo uitzien voor:

en na

hier is een idee
1) werd door elk element van de array, controleert ^ 0 [SV], zo ja, push to matrix1. tegelijkertijd, die niet ^ 0 [SV], push to matrix2
2) sorteren matrix1 (met behulp van sorteer-functie), en matrix2
3) toetreden tot de nieuwe arrays samen, waardoor matrix2 achter matrix1

Schrijf uw eigen sorteer-sub, meer in perldoc-f sorteren

Bedankt. Ik dacht dat het uit.

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

@array = sort Bysite @array;

Dat is een goede oplossing, maar het zal niet van uw soort monster array in wat je gepost:

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

zij vormen een beetje anders:

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

maar misschien dicht genoeg is OK