good

6.3.2的linsert與法範例 "insert list index element ?element element ...?" 少了一個l 變成insert了?

To匿名的朋友...

改好了謝謝哦!!

感謝!! 這些教學資料很有價值 大大實在了不起

哈 ~ 你客氣了!!

哈 ~ 你太客氣了!!

請問6.3.1的例子，程式輸出的第二行為何有大括號？

那是因為list1的第3個項目有空含一個空白，puts命令輸出在console的時候
為了讓你方便看清礎，所以就在項目的前後加上大括號。

請問是否有指令可以將整個list作變換？

例如 list1 {apple banana orange} 整個轉換乘 {蘋果 香蕉 橘子}

謝謝！

to Dai:
請教一下
set var "pencil case"
var不是當作a string item?!
是的話
set list1 "pen pencil eraser $var"
結果應該是下面
pen pencil eraser {pencil case}

To 上上樓,

請試試這個例子:

set l [list apple banana orange]
puts [string map [list apple 蘋果 banana 香蕉 orange 橘子] $l]

hi kw-sh,

"pen pencil eraser $var" 相當於C的 sprinf("pen pencil eraser %s" , var)
如果想要變成 pen pencil eraser {pencil case} 可以這樣處理
set l [list pen pencil eraser $var]

TO Dai:
set var "pencil case"
set list1 "pen pencil eraser $var"
我的疑問是指
list1 0 = pen
list1 1 = pencil
list1 2 = eraser
list1 3 = $var => list1 3 = pencil case ??

是因為TCL的代換關係?

Thank you for your answers.

To Dai ,

我有一個問題困惑很久,寫出來都有問題,想問dai 大大,要如何執行才不會有問題,謝謝~

問題:
step1: 同時執行test.exe
step2: 開兩個serial port (Comport)
step3: 利用兩個comport同時進行以下動作
step4: 同時從50跑到70,每次從50開始必須讀5次,判斷只要有1次顯示Fail就是Fail,反之為Pass
ex:Com1: 50-65 Pass , 66~ 70 Fail
Com2: 50-62 Pass ,63 ~70 Fail,
step5: 如取出最後判斷為Pass的值(抓出最佳的值),如Com1:65 ,Com2: 62

hi jimmy,

嗯...我有點看不懂問題，「跑」是指讀取嗎? 每次讀進來的資料格式是?

讀取依序是像下方這樣?

50
Fail
Fail
Pass
Pass
Fail
51
Fail
Pass
Pass
Pass
Pass
....
65
Pass
Pass
Pass
Pass
Pass

Hi Dai,對的~讀取依序是像上方那樣

Hi jimmy,

因為你讀進來的資料量不大，所以我會先把所有資料都讀到陣列裡，再來分析比較方便

1. 先用一個陣列 Data 來儲存所有的資料，陣列的內容類似
- Data(50) [list Fail Fail Fail Fail Pass]
- Data(51) [list Pass Pass Pass Pass Pass]
- ....
- Data(N) [list .....]
程式大概如下:

array set Data [list]
.... open comm port ....
set idx ""
set rspCut 0
while {![eof $comm]} {
set data [string trim [gets $comm]]
if {[string is integer $data]} {
set idx $data
set rspCut 0
continue
}
if {$idx == ""} {continue}
lappend Data($idx) $data
incr rspCut
if {$rspCut == 5 && $idx == 70} {break}
}

2. 一但資料存儲成我們想要的格式就好處理了，例如這樣可以找到全是Pass的編號(50~70)
foreach {key} [lsort -increasing [array names Data]] {
set val Data($key)
if {[lsearch -exact $val "Fail" ] == -1} {
puts [format "編號 %s 全是Pass" $key]
}
}

To kw-sh
list1 3 = pencil case
又因為 pencil 與 case 中間有空白
所以會被認定為是兩個項目
-----------------------------------
set var "pencil case"
set list1 "pen pencil eraser $var"
我的疑問是指
list1 0 = pen
list1 1 = pencil
list1 2 = eraser
list1 3 = $var => list1 3 = pencil case ??

嗯~跟據代換的規則
set list1 "pen pencil eraser $var"
會先代換為
set list1 "pen pencil eraser pencil case"
所以 list 3 是pencil 而不是$var的內容
代換的細節可以參考 「04. Tcl - 命令模型」

Hi Dai,
先謝謝您提供這麼好的網頁學習Tcl的環境.
不過關於lappend & linsert 我有個疑問.

在您的例子中
lappend list1 pencil 會把pencil append到list1上面, 感覺起來是改變list1的值了.

那如果不小心寫成
lappend $list1 pencil看起來他會回傳pencil 而非pen pencil,

但是puts list1回報出來的值是pen. 也就是list1的內容沒有被改動.

但是linsert
linsert $list1 1 pen2會回傳pen pen2 pencil eraser
但是puts list1的值會得到pen pencil eraser, list1的內容沒有被改動.

如果不小心寫成

linsert list1 1 pen2 會回傳list2 pen2 (中間那個1不知道跑哪去了)

put $list1 一樣會發現list1的值沒有改變.

覺得兩個很相似的command似乎行為上不是很一樣,

這個要怎麼解釋才不會讓自己容易搞錯呢?

Thanks

這真的是一個好問題 ~ 我開始學tcl的時候也時常會弄錯 ~

可以這樣記:

在list的操作命令中，只有lappend及lset這兩個命令是直接對「變數內容」操作，所以這兩個命令會使用「變數名稱」，其它的list命令是對「變數值」操作。

ex.

lappend var 1 2 3

結果是 var 變數的內容為 [list 1 2 3]

set v "level"

lappend $v a b c

因為$v會先被代換為level，所以結果是level的變數值為 [list a b c]，$v的值則不改變

linsert $level end d

這是對變數值操作，所以level先被代換為 [list a b c]，再由尾巴補上 "d"

linsert list end d

這裡的list被當成是值[list list]，再由尾巴補上 d，結果是 [list list d]

Hi Dai,

Thanks for your answer. I got it.

Hi, Dai,
請教一下, tcl對於清單的操作中,
是否能從清單移除某特定項目之功能?

嗯 ~ Tcl本身建立的命令中，並沒有這樣的功能，

set list "red pink green yellow"
proc lremove {list which} {
set no [lsearch $list $which]
if {$no>=0} {set list [lreplace $list $no $no]}
return $list
}
wm title . [lremove $list green]

lsearch 的 "讓lserch在搜尋前跳過排序的動作" 應該是 -sorted 喔, 精確的說是 "在假定清單已經排序的狀況下搜尋(可能是二分搜尋)"

超有用 感謝 實習差點被電飛 這篇救了我QQ