沒有lsort -nocase選項的TCL 8.4解決方法？

我正在做一個簡單的TCL lsort使用-nocase標誌。但是，我運行該代碼的一個系統仍在使用TCL 8.4，其中nocase不可用。有沒有簡單的解決方法，或者我將不得不手動處理這個？沒有lsort -nocase選項的TCL 8.4解決方法？

來源

2012-02-22 TrojanName

TCL 8.4具有-dictionary標誌，它提供了不區分大小寫的比較。如果你的字符串不包含數字，我認爲這個行爲等於-nocase標誌。

從文檔：

-dictionary 使用字典式的比較。這與-ascii相同，除了（a）情況被忽略，除非作爲決勝者，並且（b）如果兩個字符串包含嵌入的數字，則數字會作爲整數比較，而不是字符。例如，在-dictionary模式下，bigBoy在bigbang和bigboy之間排序，而x10y在x9y和x11y之間排序。

-nocase 導致比較以不區分大小寫的方式處理。如果與-dictionary，-integer或-real選項結合使用，則不起作用。

http://www.hume.com/html85/mann/lsort.html

來源

2012-02-22 12:01:34 jlemos

謝謝！我可以忍受數字被視爲整數的事實，但這並不理想。但我會等待看看有沒有人給出答案。 – TrojanName 2012-02-22 13:26:28

這裏有一個使用Schwartzian變換：

set lst {This is a Mixed Case sentence and this is the End} 
set tmp [list] 
foreach word $lst {lappend tmp [list $word [string tolower $word]]} 
unset lst 
foreach pair [lsort -index 1 $tmp] {lappend lst [lindex $pair 0]} 
puts $lst

輸出

a and Case End is is Mixed sentence the This this

來源

2012-02-22 15:01:21

謝謝你。十分優雅。 – TrojanName 2012-02-22 15:39:58

寫自己的字符串比較過程：

proc nocaseCompare {a b} { 
    set a [string tolower $a] 
    set b [string tolower $b] 
    if {$a < $b} { 
     return -1 
    } elseif {$a > $b} { 
     return 1 
    } else { 
     return 0 
    } 
} 


set lst {This is a Mixed Case sentence and this is the End} 
puts [lsort -command nocaseCompare $lst]

輸出：

a and Case End is is Mixed sentence the This this

來源

2012-02-22 20:30:43

很棒的答案！謝謝 – TrojanName 2012-02-22 20:42:40

沒有lsort -nocase選項的TCL 8.4解決方法？

回答

相關問題