Natürlicher Sort, aber nicht mit @sorted = sort @unsorted (gelöst) - #165578 (Allgemeines zu Perl)

Student87

2013-02-07 16:33

User since
2012-11-08
73 Artikel
BenutzerIn
[default_avatar]

Wozu das Fragezeichen ? Line sind immer durch \r\n getrennt, oder deckt es nen Sonderfall ab?

Mir ist noch ne andere Möglichkeit eingefallen (Werde aber trotzdem deine benutzen, weils nur 1 Zeile ist und ich mag kurzen Code), inspiriert von einer Antwort deinerseits im anderen Thread -> Ich könnte den input record seperator ändern ... ?

Code (perl): (dl )

my @sorted =
        map{$_->[0]}
        sort {$a->[1] <=> $b->[1]}
        map{
        $/ = "\r\n";
        chomp;
        /chr(.+)/;
        my $x = $1;
        if ($x eq "X") {$x=23}
        if ($x eq "Y") {$x=24}
        $_=[$_,$x]
        } @unsorted;
        } @unsorted;

Frage dazu:
Wenn ich local vor Zeile 5 setze, ändert er den seperator dann nur innerhalb des map-Befehls ?