2009-12-03T23:57:54+08:00 tag:blog.roodo.com,2009://25500 Roodo Blog Copyright (c) 2005, 2005-07-30T23:11:20+08:00 2005-07-30T23:11:20+08:00 tag:blog.roodo.com,2005://25500.321979 2005-07-30T23:10:57+08:00 http://blog.roodo.com/kelvins/ 教育

2005-07-30T23:10:37+08:00 2005-07-30T23:10:37+08:00 tag:blog.roodo.com,2005://25500.321975 2005-07-30T23:08:55+08:00 http://blog.roodo.com/kelvins/ 教育

(繼續閱讀...)]]> 2005-07-18T09:30:13+08:00 2005-07-18T09:30:13+08:00 tag:blog.roodo.com,2005://25500.279836 2005-07-18T09:28:11+08:00 http://blog.roodo.com/kelvins/

Moral of this story is: To be sitting and doing nothing, you must be sitting very, very high up. ]]> 2005-07-17T11:07:41+08:00 2005-07-17T11:07:41+08:00 tag:blog.roodo.com,2005://25500.276597 2005-07-17T11:05:46+08:00 http://blog.roodo.com/kelvins/

2005-07-17T11:05:19+08:00 2005-07-17T11:05:19+08:00 tag:blog.roodo.com,2005://25500.276594 2005-07-17T11:04:32+08:00 http://blog.roodo.com/kelvins/

是人才還是人力? / 張曼娟 有個律師朋友也在學校裡兼課，他常會找一些學生來工讀，或者是在接到某些公部門的研究案時，便會找一些研究助理。有幾個年輕助理，跟著他兩、三年，我們也就認識了。其中有個叫做阿雅的女孩，我頭一次見到她，她捧著好多檔案匣，像表演特技似的，從樓梯上下來。一臉都是笑，嘴又甜，律師朋友對我說：「阿雅人很乖的。」我一直以為他對阿雅很滿意，也以為阿雅畢業後會留在事務所，沒想到，我有一天竟在電腦展覽場的叫賣攤位上，看見了吆喝著：「最後機會，割喉價！不買你會後悔！」的阿雅。 「什麼時候離開事務所的？」我在擁擠的人潮中，扯著嗓子問阿雅。她的眼圈忽然有些紅：「離開三個月了。老師說我不是幹這一行的，我只好走了……」我聽了覺得心酸，也不知道怎麼安慰她，扯開嗓門問：「妳在這裡還好嗎？」「反正就是工作嘛。沒差！」她努力的笑著，給自己打氣。 人才早已設定 過了一段時間，我遇見律師朋友，他身邊的助理變少了，也沒有那種像阿雅一樣笑臉迎人的類型。「縮編啦？」我笑著問：「都看不見甜美的笑臉了。」朋友微笑的說：「阿雅啊，我讓她離開了。她不適合做這個工作。」「是嗎？我倒覺得她挺賣力的。」「賣力有什麼用？我需要的是人才，不是人力。」 我有點震撼。關於人才與人力，確實是我以前沒想過的問題，我一直以為只要夠投入，就能把事情做好，卻忽略了專業性與準確性，人才是最重要的。如果方法不對，就只是白費力氣，如果不能讓自己更專業，就無法成為人才，只能淪為人力。人力隨處可得，人才卻需要發現，需要培養。 「你可以培養她，讓她變成人才啊。」我還在掙扎。朋友疲倦的看了我一眼：「有些人已經設定了自己是人才，有些人無所謂，要怎麼培養啊？他自己都無所謂了。」! 我忽然想到阿雅在賣場說的那句話：「反正就是工作嘛。沒差！」也許就是因為都沒差，才失去了競爭力吧! ]]> 2005-07-17T11:04:22+08:00 2005-07-17T11:04:22+08:00 tag:blog.roodo.com,2005://25500.276591 2005-07-17T11:01:41+08:00 http://blog.roodo.com/kelvins/

打敗全世界最大的公司 華瑪百貨（Wal-Mart）是全世界最大的公司，年營收達二千九百億美元，比排名次於該公司的五大競爭者的營收總和還要多。 編輯部／文 華瑪百貨（Wal-Mart）是全世界最大的公司，年營收達二千九百億美元，比排名次於該公司的五大競爭者的營收總和還要多。 如果華瑪是一個國家，它會是全球第三十大經濟體，僅排在沙烏地阿拉伯之後。 華瑪以量議價，把供應商的價格壓到最低，然後以天天低價的策略，橫掃零售市場，迫使成千上萬的商店關門。面對這個酷斯拉級的對手，卻仍然有公司成功想出了應對之道，在華瑪的巨大陰影之下生存成長。 Business2.0雜誌分析，好市多（Costco）大賣場，選擇搶下不同的顧客群，成功迎戰華瑪。華瑪的目標顧客群是一般民眾，好市多則鎖定多金，但是仍然在意購物價格的人。美國一般家庭的年收入約四萬四千美元，好市多在美國市場的標準顧客，家庭年收入高達七萬四千美元。 好市多販售的產品大多是知名品牌，能夠吸引多金顧客上門。商品以批發形式販售，即使是知名商品也可以有大幅折扣。 例如，一支在百貨公司賣二千美元的名牌手錶，在好市多只賣一千三百美元，符合了目標顧客省錢的期望。由於策略上的選擇，好市多每家店面的平均年營收，幾乎是華瑪的兩倍。 Dollar Tree一美元連鎖零售店剛好相反，該公司採取以彼之道還治彼身的策略。華瑪便宜，它就比華瑪更便宜。該公司店中所有的產品全面單一低價一美元，即使許多商品的售價比華瑪還低，但是公司的利潤是華瑪的一點七倍。 該公司成功的主因是採購的方法。它與知名廠商合作，專門製造售價一美元的產品，例如洗碗精的容量變少一些，顧客以一美元的價格，仍然能夠買到有品質的商品。 此外，公司也懂得抓住機會，例如去年夏天，一家洋芋片公司的客戶取消訂單，廠商為了出清大批存貨，以超低價全數賣給該公司。公司把這些洋芋片貼上一美元的標籤上架，幾天內全數賣完，賺進大筆利潤。 迪克運動用品（Dick’s Sporting Goods）專攻的則是華瑪的弱點。雖然目前華瑪每年賣出六十億美元的運動用品，排名全美第一，但是賣場中缺乏具有專業知識的店員。迪克在專業服務上取勝，去年營收成長了三四％，相較之下，華瑪的運動用品則只成長了一六％。 迪克的每家店面幾乎都有有證照的健身教練，能夠教導顧客如何使用運動器材，高爾夫球具也由有經驗的高爾夫球專家負責。買運動鞋的人，可以在店中的橡皮跑道上試鞋，店面還提供修理腳踏車、網球拍等服務。 從對手的弱點下手，或者把對手的優點做得更好，即使面對的是全世界最大的公司，一樣有機會成功。 ]]> 2005-07-17T11:00:53+08:00 2005-07-17T11:00:53+08:00 tag:blog.roodo.com,2005://25500.276587 2005-07-17T10:59:36+08:00 http://blog.roodo.com/kelvins/

2005-07-17T10:58:59+08:00 2005-07-17T10:58:59+08:00 tag:blog.roodo.com,2005://25500.276584 2005-07-17T10:56:12+08:00 http://blog.roodo.com/kelvins/

2005-07-17T10:55:14+08:00 2005-07-17T10:55:14+08:00 tag:blog.roodo.com,2005://25500.276582 2005-07-17T10:52:37+08:00 http://blog.roodo.com/kelvins/ 參考文章

(繼續閱讀...)]]> 2005-07-17T09:59:52+08:00 2005-07-17T09:59:52+08:00 tag:blog.roodo.com,2005://25500.276516 2005-07-17T09:54:02+08:00 http://blog.roodo.com/kelvins/ 參考文章

第一個故事，是關於人生中的點點滴滴怎麼串連在一起。 我在里德學院（Reedcollege）待了六個月就辦休學了。到我退學 前，一共休學了十八個月。那麼，我為什麼休學？ 這得從我出生前講起。我的親生母親當時是個研究生，年輕未婚媽媽，她決定讓別人收養我。她強烈覺得應該讓有大學畢業的人收養我，所以我出生時，她就準備讓我被一對律師夫婦收養。但是這對夫妻到了最後一刻反悔了，他們想收養女孩。所以在等待收養名單上的一對夫妻，我的養父母，在一天半夜裡接到一通電話，問他們「有一名意外出生的男孩，你們要認養他嗎？」而他們的回答是「當然要」。後來，我的生母發現，我現在的媽媽從來沒有大學畢業，我現在的爸爸則連高中畢業也沒有。她拒絕在認養文件上做最後簽字。直到幾個月後，我的養父母同意將來一定會讓我上大學，她才軟化態度。 十七年後，我上大學了。但是當時我無知選了一所學費幾乎跟史丹佛一樣貴的大學，我那工人階級的父母所有積蓄都花在我的學費上。六個月後，我看不出唸這個書的價值何在。那時候，我不知道這輩子要幹什麼，也不知道唸大學能對我有什麼幫助，而且我為了唸這個書，花光了我父母這輩子的所有積蓄，所以我決定休學，相信船到橋頭自然直。 當時這個決定看來相當可怕，可是現在看來，那是我這輩子做過最好的決定之一。當我休學之後，我再也不用上我沒興趣的必修課，把時間拿去聽那些我有興趣的課。 這一點也不浪漫。我沒有宿舍，所以我睡在友人家裡的地板上，靠著回收可樂空罐的五先令退費買吃的，每個星期天晚上得走七哩的路繞過大半個鎮去印度教的HareKrishna神廟吃頓好料。我喜歡HareKrishna神廟的好料。追尋我的好奇與直覺，我所駐足的大部分事物，後來看來都成了無價之寶。舉例來說： 當時里德學院有著大概是全國最好的書法指導。在整個校園內的每一張海報上，每個抽屜的標籤上，都是美麗的手寫字。因為我休學了，可以不照正常選課程序來，所以我跑去學書法。我學了serif與sanserif字體，學到在不同字母組合間變更字間距，學到活版印刷偉大的地方。書法的美好、歷史感與藝術感是科學所無法捕捉的，我覺得那很迷人。 我沒預期過學的這些東西能在我生活中起些什麼實際作用，不過十年後，當我在設計第一台麥金塔時，我想起了當時所學的東西，所以把這些東西都設計進了麥金塔裡，這是第一台能印刷出漂亮東西的電腦。如果我沒沉溺於那樣一門課裡，麥金塔可能就不會有 多重字體跟變間距字體了。又因為Windows抄襲了麥金塔的使用方式，如果當年我沒 這樣做，大概世界上所有的個人電腦都不會有這些東西，印不出現在我們看到的漂亮的字來了。當然，當我還在大學裡時，不可能把這些點點滴滴預先串在一起，但是這在十年後回顧，就顯得非常清楚。 我再說一次，你不能預先把點點滴滴串在一起；唯有未來回顧時，你才會明白那些點點滴滴是如何串在一起的。所以你得相信，你現在所體會的東西，將來多少會連接在一塊。你得信任某個東西，直覺也好，命運也好，生命也好，或者業力。這種作法從來沒讓我失望，也讓我的人生整個不同起來。 我的第二個故事，有關愛與失去。 我好運－年輕時就發現自己愛做什麼事。我二十歲時，跟SteveWozniak在我爸媽的車庫裡開始了蘋果電腦的事業。我們拼命工作，蘋果電腦在十年間從一間車庫裡的兩個小夥子擴展成了一家員工超過四千人、市價二十億美金的公司，在那之前一年推出了我們最棒的作品－麥金塔，而我才剛邁入人生的第三十個年頭，然後被炒魷魚。要怎麼讓自己創辦的公司炒自己魷魚？好吧，當蘋果電腦成長後，我請了一個我以為他在經營公司上很有才幹的傢伙來，他在頭幾年也確實幹得不錯。可是我們對未來的願景不同，最後只好分道揚鑣，董事會站在他那邊，炒了我魷魚，公開把我請了出去。曾經是我整個成年生活重心的東西不見了，令我不知所措。 有幾個月，我實在不知道要幹什麼好。我覺得我令企業界的前輩們失望－我把他們交給我的接力棒弄丟了。我見了創辦HP的David Packard跟創辦Intel的BobNoyce，跟他們說我很抱歉把事情搞砸得 很厲害了。我成了公眾的非常負面示範，我甚至想要離開矽谷。但是漸漸的，我發現，我還是喜愛著我做過的事情，在蘋果的日子經歷的事件沒有絲毫改變我愛做的事。我被否定了，可是我還是愛做那些事情，所以我決定從頭來過。 當時我沒發現，但是現在看來，被蘋果電腦開除，是我所經歷過最好的事情。成功的沉重被從頭來過的輕鬆所取代，每件事情都不那麼確定，讓我自由進入這輩子最有創意的年代。 接下來五年，我開了一家叫做NeXT的公司，又開一家叫做Pixar的 公司，也跟後來的老婆談起了戀愛。Pixar接著製作了世界上第一部全 電腦動畫電影，玩具總動員，現在是世界上最成功的動畫製作公司。 然後，蘋果電腦買下了NeXT，我回到了蘋果，我們在NeXT發展的技術 成了蘋果電腦後來復興的核心。我也有了個美妙的家庭。 我很確定，如果當年蘋果電腦沒開除我，就不會發生這些事情。這帖藥很苦口，可是我想蘋果電腦這個病人需要這帖藥。有時候，人生會用磚頭打你的頭。不要喪失信心。 我確信，我愛我所做的事情，這就是這些年來讓我繼續走下去的唯一理由。你得找出你愛的，工作上是如此，對情人也是如此。你的工作將填滿你的一大塊人生，唯一獲得真正滿足的方法就是做你相信是偉大的工作，而唯一做偉大工作的方法是愛你所做的事。如果你還沒找到這些事，繼續找，別停頓。盡你全心全力，你知道你一定會找到。而且，如同任何偉大的關係，事情只會隨著時間愈來愈好。所以，在你找到之前，繼續找，別停頓。 我的第三個故事，關於死亡。 當我十七歲時，我讀到一則格言，好像是「把每一天都當成生命中的最後一天，你就會輕鬆自在。」這對我影響深遠，在過去33年裡，我每天早上都會照鏡子，自問：「如果今天是此生最後一日，我今天要幹些什麼？」每當我連續太多天都得到一個「沒事做」的答案時，我就知道我必須有所變革了。提醒自己快死了，是我在人生中下重大決定時，所用過最重要的工具。因為幾乎每件事－所有外界期望、所有名譽、所有對困窘或失敗的恐懼－在面對死亡時，都消失了， 只有最重要的東西才會留下。提醒自己快死了，是我所知避免掉入自己有東西要失去了的陷阱裡最好的方法。人生不帶來，死不帶去，沒什麼道理不順心而為。 一年前，我被診斷出癌症。我在早上七點半作斷層掃描，在胰臟清楚出現一個腫瘤，我連胰臟是什麼都不知道。醫生告訴我，那幾乎可以確定是一種不治之症，我大概活不到三到六個月了。醫生建議我回家，好好跟親人們聚一聚，這是醫生對臨終病人的標準建議。那代表你得試著在幾個月內把你將來十年想跟小孩講的話講完。那代表你得把每件事情搞定，家人才會盡量輕鬆。那代表你得跟人說再見了。 我整天想著那個診斷結果，那天晚上做了一次切片，從喉嚨伸入一個內視鏡，從胃進腸子，插了根針進胰臟，取了一些腫瘤細胞出來。我打了鎮靜劑，不醒人事，但是我老婆在場。她後來跟我說，當醫生們用顯微鏡看過那些細胞後，他們都哭了，因為那是非常少見的一種胰臟癌，可以用手術治好。所以我接受了手術，康復了。 這是我最接近死亡的時候，我希望那會繼續是未來幾十年內最接近 的一次。經歷此事後，我可以比之前死亡只是抽象概念時要更肯定告訴你們下面這 些： 沒有人想死。即使那些想上天堂的人，也想活著上天堂。但是死亡是我們共有的目的地，沒有人逃得過。這是註定的，因為死亡簡直就是生命中最棒的發明，是生命變化的媒介，送走老人們，給新生代留下空間。現在你們是新生代，但是不久的將來，你們也會逐漸變老，被送出人生的舞台。抱歉講得這麼戲劇化，但是這是真的。 你們的時間有限，所以不要浪費時間活在別人的生活裡。不要被信條所惑－盲從信條就是活在別人思考結果裡。不要讓別人的意見淹沒了你內在的心聲。最重要的，擁有跟隨內心與直覺的勇氣，你的內心與直覺多少已經知道你真正想要成為什麼樣的人。任何其他事物都是次要的。 在我年輕時，有本神奇的雜誌叫做 Whole EarthCatalog，當年我們很迷這本雜誌。那是一位住在離這不遠的Menlo Park的StewartBrand發行的，他把雜誌辦得很有詩意。那是1960年代末 期，個人電腦跟桌上出版還沒發明，所有內容都是打字機、剪刀跟拍立 得相機做出來的。雜誌內容有點像印在紙上的Google，在Google出現之前35年就有了：理想化，充滿新奇工具與神奇的註記。 Stewart跟他的出版團隊出了好幾期Whole EarthCatalog，然後出了停刊號。當時是1970年代中期，我正是你們現在這個年齡的時候。在停刊號的封底，有張早晨鄉間小路 的照片，那種你去爬山時會經過的鄉間小 路。在照片下有行小字： 求知若飢，虛心若愚。 那是他們親筆寫下的告別訊息，我總是以此自許。當你們畢業，展 開新生活，我也以此期許你們。 求知若飢，虛心若愚。 非常謝謝大家。 ****************************************************************************************** ****************************************************************************************** (繼續閱讀...)]]> 2005-07-12T23:15:39+08:00 2005-07-12T23:15:39+08:00 tag:blog.roodo.com,2005://25500.264051 2005-07-12T23:11:00+08:00 http://blog.roodo.com/kelvins/ 參考文章

4)||(6 0} { set result [expr $result*$base] set p [expr $p-1] } return $result } power 2 6 可得 64 power 1.15 5 2.01136 仔細觀察procedure的demo，其實tcl 並沒有procedure結構的語法。 proc只是一個命令，接受４個引數： proc 新命令名字 參數 一段tcl程式碼 其中，參數與tcl程式碼用大括號括起來的原因是我們不希望tcl 現在 就執行這些程式碼，而是當procedure被呼叫時才執行。while結構也是 如此： while 判斷 程式碼 因為我們希望每次while執行時$result,$p的值都會變。如果不用大括號 括起來，則所有的值在tcl解譯的時候就固定了，while迴圈永遠也不會 結束。 與大括號相反，eval命令可以把一個字串當成tcl 命令執行： eval {set x 123} 等於 set x 123 eval "set x 123" 同上 eval可以造成tcl 對同一敘述parse兩次，解決一些難纏的問題： exec rm [glob *.o] 會告訴你： "a.o b.o c.o" not found 正確的解法是叫tcl 再parse一遍命令行： eval "exec rm [glob *.o]" tcl 的array：不須宣告，直接用即可，但是只有一維陣列而已。 set days_of_a_month(Jan) 31 set days_of_a_month(Fab) 28 多維陣列可用單維陣列模擬： set matrix(1,1) 100 set matrix(3,9) 50 set matrix($x,$y) 66 set z $matrix(6,6) 77 陣列的index其實為 "1,1" 、 "3,9" 與 "$x,$y" 相關的命令: set var value append var value [value2 vaule3 ...] incr var [increament] /* default = 1 */ unset var [var2 var3 ...] tcl 還有一種之料結構叫list set x {Sun Mon Tue Wed Thu Fri Sat} lindex $x 1 輸出 Mon lindex {a b {c d e} f g} 2 輸出 "c d e" concat {a b} {c d} e 輸出 "a b c d e" list {a b} {c d} e "{a b} {c d} e" llength { {a b} e f} 3 llength {} 0 llength a 1 linsert $x 2 a b c Sun Mon a b c Tue ... linsert $x 0 a a Sun Mon ... lreplace $x 0 a a Mon Tue ... lrange $x 0 1 Sun Mon lappend $x a b c lsearch $x Sat lsearch -glob $x S* /* Wild Cards */ lsearch -regexp /* regular expression */ lsort [-decreasing|-integer] $x Strings & Lists set x a/b/c set y /usr/local/bin/wish split $x / 輸出 a b c split y {} usr local bin wish 反函數為join Lists & Commands: 其實tcl 語言本身就是一個list，瞧，最後一個是command或是 list： button .b -text "Reset" -command {set x 0} list可以解決一些難以構成的命令： 假設有一個情況，我們寫了下列命令： button .b -text "Reset" -command "set x $InitValue" 此命令的情況是我們希望Reset button按下後把 x設回 InitValue，可是天不從人願，如果$InitValue是"tcl tk" 則Command變成set x tcl tk，引述個數不對了。 如果改成： button .b -text "Reset" -command {set x $InitValue} 則x 值取決於按鈕時的InitValue，而非真正的InitValue 所以可用下列方法解決： button .b -text "Reset" -command [list set x $initValue] 控制結構： if 判斷 [then] 敘述 elseif 敘述 elseif 敘述 [else] 敘述 then 與else 皆可省略。 while : (make b the reverse of a) set b "" set i [expr [llength $a] -1] while {$i >= 0} { lappend b [lindex $a $i] incr i -1 } for: set b "" for {set i [expr [llength $a] -1]} {$i >=0} {incr i -1} { lappend b [lindex $a $i] } foreach: set b "" foreach i $a { set b [linset $b 0 $i] } 注意，受限於tcl 語法，大括號不能獨立一行： while {} { } break與continue也都有效。 switch命令： switch $x { Mon {incr days(Mon)} Tue {incr days(Tue)} default {...} } 亦可寫成： switch $x Mon {...} Tue {...} default {...} 或 switch $x \ Mon {...} \ Tue {...} \ default {...} 如果動作相同可用 - 代表。 switch $x { 1 - 3 - 5 - 7 - 9 {incr odd} default {incr even} } 副程式： 同csh,tcl也有source 命令: source tclInit.tcl procedure: proc name ArgList Body 定義一個叫做name 的procedure， 如果ArgList的最後一個為args，則此procedure 為不定引數函數，而args為一list。 global name1 name2 ... 使用global中的name1 name2變數，而非自定local變數 return value uplevel [level] script1 script2... 類似inline函式，把stript1 script2 ...串起來 然後在上一層中執行，而非在procedure自己的stack 內執行(可以更改上一層的變數)。 upvar [level] name localname [name1 localname1] ... 引用上一層的變數name，但是在本procedure內用 localname存取之。(call by reference) uplevel例: proc do {varName first last body} { upvar $varName v for {set v $first} {$v 0} { set result [expr $result*$base] incr p -1 } return $result } entry .base -width 6 -relief suken -textvariable base label .label1 -text "to the power" entry .power -width 6 -relief sunken -textvariable power label .label2 -text "is" label .result -textvariable result pack .base .label1 .power .label2 .result -side left -padx 1m -pady 2m bind .base {set result [power $base $power]} bind .power {set result [power $base $power]} # End of File 註： -relief sunken的意思是凹陷的輪廓。 本程式產生一個視窗： ┌──────────────────────────┐ │〔 Ａ 〕to the power 〔 Ｂ 〕 is 〔 〕│ └──────────────────────────┘ 只要輸入Ａ，Ｂ就可以得到Ａ的Ｂ次方。 #!/usr/local/bin/wish -f set id 0 entry .entry -width 30 -relief sunken -textvariable cmd pack .entry -padx 1m -pady 1m ]]>

4)||(6<=7) 1 tcl% expr 14.1*sin($x) tcl% set organization "Taiwan University" （兩句同意，只是 ） tcl% set organization {Taiwan University} （引號會做變數代換） [以下省略tcl的提示號] tcl的procedure: proc power {base p} { set result 1 while {$p > 0} { set result [expr $result*$base] set p [expr $p-1] } return $result } power 2 6 可得 64 power 1.15 5 2.01136 仔細觀察procedure的demo，其實tcl 並沒有procedure結構的語法。 proc只是一個命令，接受４個引數： proc 新命令名字 參數 一段tcl程式碼 其中，參數與tcl程式碼用大括號括起來的原因是我們不希望tcl 現在 就執行這些程式碼，而是當procedure被呼叫時才執行。while結構也是 如此： while 判斷 程式碼 因為我們希望每次while執行時$result,$p的值都會變。如果不用大括號 括起來，則所有的值在tcl解譯的時候就固定了，while迴圈永遠也不會 結束。 與大括號相反，eval命令可以把一個字串當成tcl 命令執行： eval {set x 123} 等於 set x 123 eval "set x 123" 同上 eval可以造成tcl 對同一敘述parse兩次，解決一些難纏的問題： exec rm [glob *.o] 會告訴你： "a.o b.o c.o" not found 正確的解法是叫tcl 再parse一遍命令行： eval "exec rm [glob *.o]" tcl 的array：不須宣告，直接用即可，但是只有一維陣列而已。 set days_of_a_month(Jan) 31 set days_of_a_month(Fab) 28 多維陣列可用單維陣列模擬： set matrix(1,1) 100 set matrix(3,9) 50 set matrix($x,$y) 66 set z $matrix(6,6) 77 陣列的index其實為 "1,1" 、 "3,9" 與 "$x,$y" 相關的命令: set var value append var value [value2 vaule3 ...] incr var [increament] /* default = 1 */ unset var [var2 var3 ...] tcl 還有一種之料結構叫list set x {Sun Mon Tue Wed Thu Fri Sat} lindex $x 1 輸出 Mon lindex {a b {c d e} f g} 2 輸出 "c d e" concat {a b} {c d} e 輸出 "a b c d e" list {a b} {c d} e "{a b} {c d} e" llength { {a b} e f} 3 llength {} 0 llength a 1 linsert $x 2 a b c Sun Mon a b c Tue ... linsert $x 0 a a Sun Mon ... lreplace $x 0 a a Mon Tue ... lrange $x 0 1 Sun Mon lappend $x a b c lsearch $x Sat lsearch -glob $x S* /* Wild Cards */ lsearch -regexp /* regular expression */ lsort [-decreasing|-integer] $x Strings & Lists set x a/b/c set y /usr/local/bin/wish split $x / 輸出 a b c split y {} usr local bin wish 反函數為join Lists & Commands: 其實tcl 語言本身就是一個list，瞧，最後一個是command或是 list： button .b -text "Reset" -command {set x 0} list可以解決一些難以構成的命令： 假設有一個情況，我們寫了下列命令： button .b -text "Reset" -command "set x $InitValue" 此命令的情況是我們希望Reset button按下後把 x設回 InitValue，可是天不從人願，如果$InitValue是"tcl tk" 則Command變成set x tcl tk，引述個數不對了。 如果改成： button .b -text "Reset" -command {set x $InitValue} 則x 值取決於按鈕時的InitValue，而非真正的InitValue 所以可用下列方法解決： button .b -text "Reset" -command [list set x $initValue] 控制結構： if 判斷 [then] 敘述 elseif 敘述 elseif 敘述 [else] 敘述 then 與else 皆可省略。 while : (make b the reverse of a) set b "" set i [expr [llength $a] -1] while {$i >= 0} { lappend b [lindex $a $i] incr i -1 } for: set b "" for {set i [expr [llength $a] -1]} {$i >=0} {incr i -1} { lappend b [lindex $a $i] } foreach: set b "" foreach i $a { set b [linset $b 0 $i] } 注意，受限於tcl 語法，大括號不能獨立一行： while {} { } break與continue也都有效。 switch命令： switch $x { Mon {incr days(Mon)} Tue {incr days(Tue)} default {...} } 亦可寫成： switch $x Mon {...} Tue {...} default {...} 或 switch $x \ Mon {...} \ Tue {...} \ default {...} 如果動作相同可用 - 代表。 switch $x { 1 - 3 - 5 - 7 - 9 {incr odd} default {incr even} } 副程式： 同csh,tcl也有source 命令: source tclInit.tcl procedure: proc name ArgList Body 定義一個叫做name 的procedure， 如果ArgList的最後一個為args，則此procedure 為不定引數函數，而args為一list。 global name1 name2 ... 使用global中的name1 name2變數，而非自定local變數 return value uplevel [level] script1 script2... 類似inline函式，把stript1 script2 ...串起來 然後在上一層中執行，而非在procedure自己的stack 內執行(可以更改上一層的變數)。 upvar [level] name localname [name1 localname1] ... 引用上一層的變數name，但是在本procedure內用 localname存取之。(call by reference) uplevel例: proc do {varName first last body} { upvar $varName v for {set v $first} {$v <= $last} {incr v} uplevel $body } } set a {} do i 1 5 { lappend a [expr $i*$i] } set a 顯示 1 4 9 16 25 如果不用uplevel，則$body就不可能存取到 a變數了。 Errors& exceptions: catch { tcl 程式碼 } messages 如果程式碼有錯，catch return 1，否則為0，messages為實際的錯誤訊息。 以下沒力氣打中文，寫不下去了，抄兩個玩具給大家欣賞 :-b #!/usr/local/bin/wish -f proc power {base p} { set result 1 while {$p > 0} { set result [expr $result*$base] incr p -1 } return $result } entry .base -width 6 -relief suken -textvariable base label .label1 -text "to the power" entry .power -width 6 -relief sunken -textvariable power label .label2 -text "is" label .result -textvariable result pack .base .label1 .power .label2 .result -side left -padx 1m -pady 2m bind .base {set result [power $base $power]} bind .power {set result [power $base $power]} # End of File 註： -relief sunken的意思是凹陷的輪廓。 本程式產生一個視窗： ┌──────────────────────────┐ │〔 Ａ 〕to the power 〔 Ｂ 〕 is 〔 〕│ └──────────────────────────┘ 只要輸入Ａ，Ｂ就可以得到Ａ的Ｂ次方。 #!/usr/local/bin/wish -f set id 0 entry .entry -width 30 -relief sunken -textvariable cmd pack .entry -padx 1m -pady 1m <- 顯示輸入行 bind .entry { <- 當.entry 收到這個event時 set id [incr id] if {$id > 5} { destroy .b[expr $id -5] <- tcl的變數名也可以用湊的 └＞ 刪除第5次前的命令 } button .b$id -command "exec <@stdin >@stdout $cmd" -text $cmd pack .b$id -fill x <- 顯示按鈕，且水平（ｘ）方向填滿。 .b$id invoke <- 模擬按鈕被按下 .entry delete 0 end <- 清除輸入行 } #end of file 本程式產生一個輸入行，可以下命令，並且把過去的５個命令記錄下來， 用按鈕就可以執行。 *** 看到這裡，您是否同意tcl/tk是UNIX世界的BASIC呢？ 本篇文章是我閱讀一本書：tcl and tk toolkit的部份心得。這本書已於1994年由 Addison-Wesley Publishing Company,Inc.出版(ISBN 0-201-63337-X)。此書 網路上有postscript檔案，但是我不認為大家有閒情逸致印個500頁左右的 書吧---用10ppm的雷射印表機也要50幾分鐘、實際上用Postscript輸出更慢， 還會卡紙哩：）最好是找找看有沒有進口。 tcl/tk在USENET上有自己的討論群：comp.lang.tcl各位可以參考其FAQ。FAQ可在 NCTUCCCA:/USENET/FAQ/comp/lang/tcl拿到。 UNIX下的Interpretor種類繁多，功能複雜，但願這篇文章能收到拋磚引玉之效 使有人願意寫些中文文件來介紹與X Window 整合的其他Interpretor，如tkperl 、Prolog等。甚至是一些Windows的程式設計工具，如SUIT,xvwindow等library 使得 X Windows Programing對入門者不再是夢靨。 以上所提及的軟體更是網路上可以免費取得的合法軟體，特別是Linux下全部都有。 ps: 上學期末在天龍書局看到Larry Wall的Programing Perl，對perl有興趣者可 以去買，保證不會後悔! pps: tk目前的版本無法處理16bits的字集，即Botton..無法看到中文，可能要 等到tk 4.0。 ====================================================== ]]> 2005-07-12T13:42:40+08:00 2005-07-12T13:42:40+08:00 tag:blog.roodo.com,2005://25500.262480 2005-07-12T13:39:11+08:00 http://blog.roodo.com/kelvins/ 教育