通過「猜數字」遊戲學習 Tcl

探索 Tcl 的基本語言結構，包括用戶輸入、輸出、變數、條件評估、循環和簡單函數。

我的 Tcl 之旅始於最近需要將一個困難的基於 Java 的命令行配置工具自動化。我使用 Ansible 做了一些自動化編程，偶爾也會使用 expect 模塊。坦率地說，我發現這個模塊的作用有限，原因包括：難以對相同的提示進行排序，難以捕捉到額外步驟的值，控制邏輯的靈活性有限，等等。有時你可以用 shell 模塊來代替。但有時你會遇到那種特立獨行、過於複雜的命令行程序，似乎無法實現自動化。

就我而言，我正在自動安裝我公司的一個程序。最後的配置步驟只能通過命令行來完成，通過幾個不規範的、重複的提示和需要捕捉的數據輸出。好在傳統的 Expect 是唯一的答案。要使用 Expect 的基本功能，並不需要對 Tcl 有很深的了解，但你了解的越多，你就能從它那裡得到更多的力量。這是後續文章的話題。現在，我探討一下 Tcl 的基本語言結構，包括用戶輸入、輸出、變數、條件判斷、循環和簡單函數。

安裝 Tcl

在 Linux 系統上，我使用這個：

# dnf install tcl
# which tclsh
/bin/tclsh

在 macOS 上，你可以使用 Homebrew 來安裝最新的 Tcl：

$ brew install tcl-tk
$ which tclsh
/usr/local/bin/tclsh

在 Tcl 中猜數字

從創建基本的可執行腳本 numgame.tcl 開始：

$ touch numgame.tcl
$ chmod 755 numgame.tcl

接著在你的文件中開始編碼，標題是通常的 #!：

#!/usr/bin/tclsh

這裡有一些關於 Tcl 的簡單介紹，以便與本文一起追蹤。

第一點是，Tcl 處理的都是字元串。變數通常被當作字元串處理，但可以自動切換類型和內部表示（這一點你通常無法看到）。函數可以把它們的字元串參數解釋為數字（expr），並且只通過值傳遞。字元串通常使用雙引號或大括弧來劃分。雙引號允許變數擴展和轉義序列，而大括弧則完全沒有擴展。

第二點是 Tcl 語句可以用分號隔開，但通常不這樣。語句行可以用反斜杠字元來分割，然而，典型的做法是將多行語句放在大括弧內，以避免需要這樣做。大括弧只是更簡單，下面的代碼格式也反映了這一點。大括弧允許對字元串進行延遲求值。在 Tcl 進行變數替換之前，值被傳遞給函數。

最後，Tcl 使用方括弧進行命令替換。方括弧之間的任何東西都會被送到 Tcl 解釋器的一個新的遞歸調用中進行求值。這對於在表達式中間調用函數或為函數生成參數是很方便的。

過程

雖然在這個遊戲中沒有必要，但我先舉一個在 Tcl 中定義函數的例子，你可以在以後使用：

proc used_time {start} {
    return [expr [clock seconds] - $start]
}

使用 proc 將其設定為一個函數（或過程）定義。接下來是函數的名稱。然後是一個包含參數的列表；在本例中是一個參數 {start} ，然後是函數主體。注意，主體的大括弧在這一行開始，它不能在下面一行。該函數返回一個值。返回值是一個複合求值（方括弧），它從讀取系統時鐘 [clock seconds] 開始，並進行數學運算以減去 $start 參數。

設置、邏輯和完成

你可以在這個遊戲的其餘部分增加更多的細節，進行一些初始設置，對玩家的猜測進行迭代，然後在完成後列印結果：

set num [expr round(rand()*100)]
set starttime [clock seconds]
set guess -1
set count 0

puts "Guess a number between 1 and 100"

while { $guess != $num } {
    incr count
    puts -nonewline "==> "
    flush stdout
    gets stdin guess

    if { $guess < $num } {
        puts "Too small, try again"
    } elseif { $guess > $num } {
        puts "Too large, try again"
    } else {
        puts "That&apos;s right!"
    }
}

set used [used_time $starttime]

puts "You guessed value $num after $count tries and $used elapsed seconds"

前面的 set 語句建立變數。前兩個求值表達式用於識別 1 到 100 之間的隨機數，下一個保存系統時鐘啟動時間。

puts 和 gets 命令用於來自玩家的輸出和輸入。我使用的 puts 暗示輸出是標準輸出。gets 需要定義輸入通道，所以這段代碼指定 stdin 作為用戶的終端輸入源。

當 puts 省略行末終止符時，需要 flush stdout 命令，因為 Tcl 緩衝了輸出，在需要下一個 I/O 之前可能不會被顯示。

從這裡開始，while 語句說明了循環控制結構和條件邏輯，需要給玩家反饋並最終結束循環。

最後的 set 命令調用我們的函數來計算遊戲的耗時秒數，接著是收集到的統計數字來結束遊戲。

玩吧!

$ ./numgame.tcl
Guess a number between 1 and 100
==> 100
Too large, try again
==> 50
Too large, try again
==> 25
Too large, try again
==> 12
Too large, try again
==> 6
Too large, try again
==> 3
That's right!
You guessed value 3 after 6 tries and 20 elapsed seconds

繼續學習

當我開始這個練習時，我懷疑回到 90 年代末的流行語言對我有多大的幫助。一路走來，我發現 Tcl 有幾處讓我非常喜歡的地方，我最喜歡的是方括弧內的命令求值。與其他許多過度使用複雜閉包結構的語言相比，它似乎更容易閱讀和使用。我以為它是一種 已消亡的語言，但實際上它仍在蓬勃發展，並在多個平台上得到支持。我學到了一些新的技能，並對這種古老的語言有了新的認識。

在 https://www.tcl-lang.org 上查看官方網站。你可以找到最新的源代碼、二進位發行版、論壇、文檔，以及仍在進行的會議信息的參考。

via: https://opensource.com/article/23/2/learn-tcl-writing-simple-game

作者：James Farrell 選題：lkxed 譯者：geekpi 校對：wxy

本文由 LCTT 原創編譯，Linux中國 榮譽推出

本文轉載來自 Linux 中國: https://github.com/Linux-CN/archive