TCL: Sortieren einer Liste von strings, basierend auf einem Teil des Strings

Ich bin nicht Experte in TCL, aber leider haben sich mit ihm zu beschäftigen. Ich versuche hierzu: ich habe eine Liste mit strings: z.B. "test2 ""test3" "test1". Ich möchte zum Sortieren der Liste mit der Nummer nach dem "test". Ich habe gelesen, alle lsort Befehl Optionen, aber ich denke, es ist kein einfacher Weg, da die tcl-nicht (WARUM ???) betrachten strings als arrays, wie zum Beispiel python macht. Wie kann ich das tun ? ich danke Ihnen allen im Voraus.

  • Normalerweise ist es nicht notwendig Umgang mit strings Sequenzen von Zeichen (und in der Tat Tcl Auffassung strings werden der grundsätzliche Datentyp). Wenn es notwendig ist, split $theString {} geben wird, eine Charakter-Liste.
InformationsquelleAutor user3012827 | 2013-11-20
  1. 1

    Die einfache Antwort ist:

    set yourlist {test2 test3 test1}
puts [lsort $yourlist]

    Aber dieser schlägt fehl, wenn Sie die zahlen haben > 10:

    set yourlist {test2 test3 test1 test11}
puts [lsort $yourlist]

    So dass Sie wahrscheinlich benötigen, um vergleichen Sie selbst:

    proc mycompare {arg1 arg2} {
   if {[regexp {test(\d+)} $arg1 -> n1] && [regexp {test(\d+)} $arg2 -> n2]} {
       return [expr {$n1 - $n2}]
   }
   return [string compare $arg1 $arg2]
}

set yourlist {test2 test3 test1 test11}
puts [lsort -command mycompare $yourlist]

    In der Tat, Tcl, können Sie erwägen einen string als byte-array, also das problem mit der Aussage

    tcl nicht (WARUM ???) betrachten strings als arrays

    ist deine definiton von "array". In Tcl wir in der Regel verwenden Sie Listen für eine Sequenz von Werten, wenn Sie wollen bekommen Sie eine Liste mit allen Charakteren verwenden split $yourstring {}

    • Danke für deine Antwort! meine beschweren sich über meine Aussage "tcl nicht (WARUM ???) betrachten strings als arrays" bedeutet einfach, dass Es einfacher wäre, wenn a = "abcde", um einfach in der Lage sein zu Adresse a(2), aber das ist ein Klagen, ein fauler Mensch, der lieber python 😉
    • Gut, um das N-te element aus einer Liste, die Sie verwenden lindex $mylist $n für Zeichenfolgen, die Sie verwenden string index $mystring $n. Wenn die Tcl-API würde neu gestaltet werden, dann werden alle l* Befehle werden umbenannt list ..., aber es ist bereits ein list Befehl, die sehr wichtig ist.
    InformationsquelleAutor Johannes Kuhn
  2. 2

    Den lsort Befehl hat eine -dictionary option, die genau das macht
    was Sie wollen:

    % set lis {test1 test10 test20 test15 test3}
test1 test10 test20 test15 test3
% puts [lsort -dictionary $lis]
test1 test3 test10 test15 test20
    • Funktioniert nur, wenn alle die Präfixe sind test...
    • danke sehr, das passt zu meiner Absicht, mein tutorial hat nicht alle lsort-Optionen 🙂
    InformationsquelleAutor schmitzu
  3. 1

    Ich würde verwenden eine Schwarzian verwandeln Ansatz

    % set l {test1 test10 test20 test3}
test1 test10 test20 test3
% foreach elem $l {lappend new [list $elem [regexp -inline {\d+} $elem]]}    
% set new
{test1 1} {test10 10} {test20 20} {test3 3}
% foreach pair [lsort -index 1 -integer $new] {lappend result [lindex $pair 0]}
% puts $result
test1 test3 test10 test20

    Tcl 8.6

    set result [
    lmap e [
        lsort -integer -index 1 [
            lmap e $l  {list $e [regexp -inline {\d+} $e]}
        ]
    ] {lindex $e 0}
]
    test1 test3 test10 test20

    Gehen Weg off-topic, vergleicht dieses mit dem perl -

    my @l = qw/ test1 test10 test20 test3 /;
my @result = map {$_->[0]}
             sort {$a->[1] <=> $b->[1]}
             map {m/(\d+)/ and [$_, $1]}
             @l;
    • Vereinfachen Sie mit 8.6 s lmap...
    InformationsquelleAutor glenn jackman
Schreibe einen Kommentar