Lang/Tcl_Tk_Expect
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#topicpath
* 目次 [#kd018898]
#contents
/////////////////////////////////////////////////////////...
* 共通 [#udbf4d6a]
** コメント [#m841fda8]
-- "#" 以降がコメントになる
-- 式を書いた後にコメントを書く場合、 "#" の前に ";" が...
/////////////////////////////////////////////////////////...
** I/O [#k5fe58b5]
- 定義済みの channel_ID： stdout / stderr / stdin
- 出力
-- puts [-nonewline] channel_ID string
--- defalut では stdout へ出力する。
--- -nonewline オプションをつけると、改行文字を省略する。
--- 例
puts stderr "ERROR: an error has occuered\r"; # stderr ...
- 入力
-- gets
gets stdin VAL; # 変数 VAL に、stdin から読み取った内...
-- read [-nonewline] channel_ID
--- channel_ID から全てのデータを読み込む。
--- -nonewline オプションをつけると、改行文字を省略する。
-- read channel_ID bytes
--- channel_ID から、bytes 分のデータを読み込む。
-- seek channel_ID offset [origin]
--- originは、以下が定義されている：
|~origin |~description |
|start |ファイルやデバイスの先頭から |
|current |現在のアクセス位置 |
|end |ファイルやデバイスの終端から |
-- tell channel_ID
--- channel_ID の、現在のアクセス位置を返す。
/////////////////////////////////////////////////////////...
** 1sec 未満の sleep [#n27d57ab]
- 1sec未満の sleep をするには、sleep ではなく、after を使...
# 50msec の sleep
after 50;
/////////////////////////////////////////////////////////...
** 変数 [#b8ea3b68]
- 宣言
-- 宣言・代入する時は、変数名に接頭辞をつけない
set AAA "1234";
-- 参照する時は、接頭辞 "$" をつける。$変数名 とするか、$...
puts "AAA: ${AAA}\r";
puts "BBB: $BBB\r";
-- ※宣言されていない変数を参照しようとすると、スクリプトa...
/////////////////////////////////////////////////////////...
** 関数 [#qf190abc]
- 関数定義
proc function_name { arg1 arg2 } {
# 実装
return ${value}; # 返り値を返す場合
}
-- 関数名は、キーワード "proc" に続けて書く
-- 仮引数には、接頭辞（？） "$" はつけない。区切りはコン...
- 関数呼び出し
function_name ${aa} ${bb}; # 通常...
set return_value [ function_name ${aa} ${bb} ]; # 返り...
** グローバル変数 [#cfce567f]
- グローバル領域に変数を定義し、その変数を参照する関数内...
#!/usr/bin/expect
set G_VAL1 "";
proc func_name { arg1 arg2 } {
global G_VAL1;
if { ${arg1} > 10 } {
set G_VAL1 ${arg1};
} else {
set G_VAL1 ${arg2};
}
}
/////////////////////////////////////////////////////////...
** 他のスクリプトファイルから関数や変数を取り込む [#za16d...
- あるスクリプト（script-main.expとする）から、別のスクリ...
source "script-sub.exp";
-- これにより、script-sub.exp の定義内容が、元からscript-...
/////////////////////////////////////////////////////////...
** フロー制御 [#hb9d792c]
*** if [#lf2b9949]
set i 10;
set EXP 20;
if { ${i} > ${EXP} {
処理...
} elseif { ${i} == ${EXP} } {
処理...
} else {
処理...
}
- if 条件文内の or/and は、C/C++ 等と同様、 "||" "&&" で...
- 動かない例： 「 } elseif { } { 」ではなく「 elseif { } ...
if { ${i} > ${EXP} } { 処理... }
elseif { ${i} == ${EXP} } { 処理... }
else { 処理... }
*** for [#q0f54d72]
set LOOP_MAX 100;
for { set i } { ${i} < ${LOOP_MAX} } { incr i } {
処理...
}
*** foreach [#xdb5adc3]
- 例1
foreach i { 0 1 2 3 4 5 } {
処理...
}
- 例2
foreach { i j } { 0 1 2 3 4 5 } {
処理...
}
- 例3
foreach i { 0 1 2 3 4 5 } j { 0 10 20 30 40 50 } {
処理...
}
*** while [#j842bed1]
while { ${i} >= ${VAL} } {
処理...
}
*** ループ制御の補助コマンド [#e483400d]
|~command |~description |
|continue | ループをスキップ。|
|break | ループを終了 |
|exit [ return_code ] |return_code は、default では0 |
*** switch [#fd207646]
switch [options] ${string} {
pattern_1 {
処理...
}
pattern_2 {
処理...
}
...
default {
処理...
}
}
- options
|~option |~description |
|-exact | string と pattern が完全に一致する場合に真とな...
|-glob | string をグロブパターン pattern とマッチング |
|-regexp| string を正規表現 pattern とマッチング |
|-- | option 終了を示す |
- option 無しの場合、値 1 と 値 01 は、別物として識別され...
- 上記文例における ${string} は''あくまで文字列''で、数値...
/////////////////////////////////////////////////////////...
** 時間 [#md0caab7]
- 現在時間の取得
set time_stamp [ clock seconds ]; # clock clicks -milli...
- 上記で取得した時間の値 time_stamp を書式化して、time に...
set time [ clock format ${time_stamp} -format {%s} ];
set time [ clock format ${ts} -format {%Y-%m-%d %H:%M:%S...
- より詳しくは、[[Lang/Tcl_Tk_Expect/time]] へ。
*** 経過時間の計測 [#x561d74a]
- "-milliseconds" オプションを付けると、msecオーダーの精...
# 経過時間計測
# 1. GetWrapTimeInit で start_ts を取得。
# 2. GetWrapTime を、 start_ts を渡して呼ぶと、現...
proc GetWrapTimeInit { } {
set start_ts [ clock clicks -milliseconds ];
set start_ts [ clock format ${start_ts} -format {%s} ];
return ${start_ts};
}
proc GetWrapTime { start_ts } {
set ts [ clock clicks -milliseconds ];
set ts [ clock format ${ts} -format {%s} ];
set wrap [ expr ${ts} - ${start_ts} ];
return ${wrap};
}
/////////////////////////////////////////////////////////...
** 変数の名前と値の取得 [#pd90a3f5]
- info コマンドを使う
- global 変数名を取得
書式： [ info globals ?option? ]
set gloval_val [ info globals ]; # 全てのglobal 変数...
puts "${gloval_val}";
-- ?option? で文字列を指定すると、それに一致するものだけ...
set global_val [ info globals *_library ]; # '_library'...
- 変数名リストに格納された変数の「値」を知るには、for 文...
set num [ llength ${val_names} ]; # 変数名リスト val_na...
for { set i 0 } { ${i} < ${num} } { set i [ incr i ] } {
set val_name [ lindex ${val_names} ${i} ];
# set val_val [ eval "set \$\{${val_name}\}" ]; # 間...
# set val_val ${${val_name}}; # 間違い例：こんなこと...
set val_val [ set ${val_name} ]; # これで値が取得出来...
puts "\[name:${val_name}\]\[val:${val_val}\]\r"; # 表示
}
/////////////////////////////////////////////////////////...
* expect [#f32570ee]
** 基本 [#ca535d79]
+ 相手にするプログラムを呼び出す
+ expect で、期待するキーワード（プロンプト文字列や、エラ...
+ 期待するキーワードが来たときに、人に代わって入力するコ...
- 例：bashを起動し、カレントディレクトリのファイル一覧を...
#!/usr/bin/expect
spawn bash; # 相手にするプログラムの一例として...
expect "\\$" { # プロンプト文字列が "$" の場合は...
send "ls -l\r"; # ユーザがTREURNキーを押すのに対応...
}
/////////////////////////////////////////////////////////...
** interact ：ユーザのマニュアル操作も組み合わせる [#e0fe...
#!/usr/bin/expect
spawn bash;
expect "\\$" {
send "ping www.example.com\r";
}
interact; # ユーザーに処理を渡す
- ユーザのマニュアル操作も組み合わせる2：Ctrl-a を押すと...
・・・
set CTRL_A "\001";
interact {
${CTRL_A} {
puts "typed Ctrl-a!!\r";
処理...
}
}
/////////////////////////////////////////////////////////...
** [[Ctrl-* キーの割り当て>Lang/Tcl_Tk_Expect/Ctrl-キーマ...
- リンク先のように定義してやれば、Ctrl-a と打ったときのア...
/////////////////////////////////////////////////////////...
** timeout [#m636720b]
- "expect" で待つときのタイムアウトは、変数 timeout に設...
set timeout -1; # -1 にすると、タイムアウトしなくなる。
*** タイムアウトやキーワード以外の条件を考慮した待ち方を...
set timeout 1;
while {1} { # 基本的には無限待ち
expect "KEYWORD" {
処理;
break; # この処理が終わったら、whileループを抜...
}
if { 条件 } { # timeout する度にこの条件がチェックさ...
break; # 場合によっては無限待ちループを抜ける
}
}
/////////////////////////////////////////////////////////...
** expect [#cf2dedcd]
*** 複数のキーワードを受け付け、キーワードによって挙動を...
expect {
"KEYWORD1" { 処理1; }
"KEYWORD2" { 処理2; }
}
- エラー発生時にはエラーメッセージを出力して再度正常時と...
/////////////////////////////////////////////////////////...
** シグナルを受け取った時の処理 [#q1278609]
- bashのシェルスクリプトのように、"trap" コマンドを使う。
- 詳しいことは、[[expect の manpage>http://www.linux.or.j...
書式： trap [[command] signals]
- 次の例では、シグナルを受け取った時に、終期化処理を行う ...
proc terminate { } {
# 例えば、ログ取得を終わらせる、とか。
log_file;
}
trap terminate {SIGINT SIGTERM}
/////////////////////////////////////////////////////////...
** log の取得 [#n927a8bf]
- "log_file" コマンドとシグナルを利用すると結構便利に使え...
- 下記は、"interact" で制御をユーザに引き渡した後、 Ctrl-...
proc LogStart { logfile } {
log_file ${logfile};
puts "Logging Start: ${logfile}\r;
}
proc LogStop { } {
puts "Logging Stop\r";
log_file;
}
proc terminate { } {
LogStop;
exit 0;
}
trap terminate {SIGINT SIGTERM}
# 処理を色々記述。
set CTRLA \001
set CTRLB \002
interact {
${CTRLA} { LogStart ${out_log}; }
${CTRLB} { LogStop; }
}
/////////////////////////////////////////////////////////...
* 参考リンク [#laeb8a5b]
- [[もっとTcl/Tk>http://www.interq.or.jp/japan/s-imai/tcl...
終了行:
#topicpath
* 目次 [#kd018898]
#contents
/////////////////////////////////////////////////////////...
* 共通 [#udbf4d6a]
** コメント [#m841fda8]
-- "#" 以降がコメントになる
-- 式を書いた後にコメントを書く場合、 "#" の前に ";" が...
/////////////////////////////////////////////////////////...
** I/O [#k5fe58b5]
- 定義済みの channel_ID： stdout / stderr / stdin
- 出力
-- puts [-nonewline] channel_ID string
--- defalut では stdout へ出力する。
--- -nonewline オプションをつけると、改行文字を省略する。
--- 例
puts stderr "ERROR: an error has occuered\r"; # stderr ...
- 入力
-- gets
gets stdin VAL; # 変数 VAL に、stdin から読み取った内...
-- read [-nonewline] channel_ID
--- channel_ID から全てのデータを読み込む。
--- -nonewline オプションをつけると、改行文字を省略する。
-- read channel_ID bytes
--- channel_ID から、bytes 分のデータを読み込む。
-- seek channel_ID offset [origin]
--- originは、以下が定義されている：
|~origin |~description |
|start |ファイルやデバイスの先頭から |
|current |現在のアクセス位置 |
|end |ファイルやデバイスの終端から |
-- tell channel_ID
--- channel_ID の、現在のアクセス位置を返す。
/////////////////////////////////////////////////////////...
** 1sec 未満の sleep [#n27d57ab]
- 1sec未満の sleep をするには、sleep ではなく、after を使...
# 50msec の sleep
after 50;
/////////////////////////////////////////////////////////...
** 変数 [#b8ea3b68]
- 宣言
-- 宣言・代入する時は、変数名に接頭辞をつけない
set AAA "1234";
-- 参照する時は、接頭辞 "$" をつける。$変数名 とするか、$...
puts "AAA: ${AAA}\r";
puts "BBB: $BBB\r";
-- ※宣言されていない変数を参照しようとすると、スクリプトa...
/////////////////////////////////////////////////////////...
** 関数 [#qf190abc]
- 関数定義
proc function_name { arg1 arg2 } {
# 実装
return ${value}; # 返り値を返す場合
}
-- 関数名は、キーワード "proc" に続けて書く
-- 仮引数には、接頭辞（？） "$" はつけない。区切りはコン...
- 関数呼び出し
function_name ${aa} ${bb}; # 通常...
set return_value [ function_name ${aa} ${bb} ]; # 返り...
** グローバル変数 [#cfce567f]
- グローバル領域に変数を定義し、その変数を参照する関数内...
#!/usr/bin/expect
set G_VAL1 "";
proc func_name { arg1 arg2 } {
global G_VAL1;
if { ${arg1} > 10 } {
set G_VAL1 ${arg1};
} else {
set G_VAL1 ${arg2};
}
}
/////////////////////////////////////////////////////////...
** 他のスクリプトファイルから関数や変数を取り込む [#za16d...
- あるスクリプト（script-main.expとする）から、別のスクリ...
source "script-sub.exp";
-- これにより、script-sub.exp の定義内容が、元からscript-...
/////////////////////////////////////////////////////////...
** フロー制御 [#hb9d792c]
*** if [#lf2b9949]
set i 10;
set EXP 20;
if { ${i} > ${EXP} {
処理...
} elseif { ${i} == ${EXP} } {
処理...
} else {
処理...
}
- if 条件文内の or/and は、C/C++ 等と同様、 "||" "&&" で...
- 動かない例： 「 } elseif { } { 」ではなく「 elseif { } ...
if { ${i} > ${EXP} } { 処理... }
elseif { ${i} == ${EXP} } { 処理... }
else { 処理... }
*** for [#q0f54d72]
set LOOP_MAX 100;
for { set i } { ${i} < ${LOOP_MAX} } { incr i } {
処理...
}
*** foreach [#xdb5adc3]
- 例1
foreach i { 0 1 2 3 4 5 } {
処理...
}
- 例2
foreach { i j } { 0 1 2 3 4 5 } {
処理...
}
- 例3
foreach i { 0 1 2 3 4 5 } j { 0 10 20 30 40 50 } {
処理...
}
*** while [#j842bed1]
while { ${i} >= ${VAL} } {
処理...
}
*** ループ制御の補助コマンド [#e483400d]
|~command |~description |
|continue | ループをスキップ。|
|break | ループを終了 |
|exit [ return_code ] |return_code は、default では0 |
*** switch [#fd207646]
switch [options] ${string} {
pattern_1 {
処理...
}
pattern_2 {
処理...
}
...
default {
処理...
}
}
- options
|~option |~description |
|-exact | string と pattern が完全に一致する場合に真とな...
|-glob | string をグロブパターン pattern とマッチング |
|-regexp| string を正規表現 pattern とマッチング |
|-- | option 終了を示す |
- option 無しの場合、値 1 と 値 01 は、別物として識別され...
- 上記文例における ${string} は''あくまで文字列''で、数値...
/////////////////////////////////////////////////////////...
** 時間 [#md0caab7]
- 現在時間の取得
set time_stamp [ clock seconds ]; # clock clicks -milli...
- 上記で取得した時間の値 time_stamp を書式化して、time に...
set time [ clock format ${time_stamp} -format {%s} ];
set time [ clock format ${ts} -format {%Y-%m-%d %H:%M:%S...
- より詳しくは、[[Lang/Tcl_Tk_Expect/time]] へ。
*** 経過時間の計測 [#x561d74a]
- "-milliseconds" オプションを付けると、msecオーダーの精...
# 経過時間計測
# 1. GetWrapTimeInit で start_ts を取得。
# 2. GetWrapTime を、 start_ts を渡して呼ぶと、現...
proc GetWrapTimeInit { } {
set start_ts [ clock clicks -milliseconds ];
set start_ts [ clock format ${start_ts} -format {%s} ];
return ${start_ts};
}
proc GetWrapTime { start_ts } {
set ts [ clock clicks -milliseconds ];
set ts [ clock format ${ts} -format {%s} ];
set wrap [ expr ${ts} - ${start_ts} ];
return ${wrap};
}
/////////////////////////////////////////////////////////...
** 変数の名前と値の取得 [#pd90a3f5]
- info コマンドを使う
- global 変数名を取得
書式： [ info globals ?option? ]
set gloval_val [ info globals ]; # 全てのglobal 変数...
puts "${gloval_val}";
-- ?option? で文字列を指定すると、それに一致するものだけ...
set global_val [ info globals *_library ]; # '_library'...
- 変数名リストに格納された変数の「値」を知るには、for 文...
set num [ llength ${val_names} ]; # 変数名リスト val_na...
for { set i 0 } { ${i} < ${num} } { set i [ incr i ] } {
set val_name [ lindex ${val_names} ${i} ];
# set val_val [ eval "set \$\{${val_name}\}" ]; # 間...
# set val_val ${${val_name}}; # 間違い例：こんなこと...
set val_val [ set ${val_name} ]; # これで値が取得出来...
puts "\[name:${val_name}\]\[val:${val_val}\]\r"; # 表示
}
/////////////////////////////////////////////////////////...
* expect [#f32570ee]
** 基本 [#ca535d79]
+ 相手にするプログラムを呼び出す
+ expect で、期待するキーワード（プロンプト文字列や、エラ...
+ 期待するキーワードが来たときに、人に代わって入力するコ...
- 例：bashを起動し、カレントディレクトリのファイル一覧を...
#!/usr/bin/expect
spawn bash; # 相手にするプログラムの一例として...
expect "\\$" { # プロンプト文字列が "$" の場合は...
send "ls -l\r"; # ユーザがTREURNキーを押すのに対応...
}
/////////////////////////////////////////////////////////...
** interact ：ユーザのマニュアル操作も組み合わせる [#e0fe...
#!/usr/bin/expect
spawn bash;
expect "\\$" {
send "ping www.example.com\r";
}
interact; # ユーザーに処理を渡す
- ユーザのマニュアル操作も組み合わせる2：Ctrl-a を押すと...
・・・
set CTRL_A "\001";
interact {
${CTRL_A} {
puts "typed Ctrl-a!!\r";
処理...
}
}
/////////////////////////////////////////////////////////...
** [[Ctrl-* キーの割り当て>Lang/Tcl_Tk_Expect/Ctrl-キーマ...
- リンク先のように定義してやれば、Ctrl-a と打ったときのア...
/////////////////////////////////////////////////////////...
** timeout [#m636720b]
- "expect" で待つときのタイムアウトは、変数 timeout に設...
set timeout -1; # -1 にすると、タイムアウトしなくなる。
*** タイムアウトやキーワード以外の条件を考慮した待ち方を...
set timeout 1;
while {1} { # 基本的には無限待ち
expect "KEYWORD" {
処理;
break; # この処理が終わったら、whileループを抜...
}
if { 条件 } { # timeout する度にこの条件がチェックさ...
break; # 場合によっては無限待ちループを抜ける
}
}
/////////////////////////////////////////////////////////...
** expect [#cf2dedcd]
*** 複数のキーワードを受け付け、キーワードによって挙動を...
expect {
"KEYWORD1" { 処理1; }
"KEYWORD2" { 処理2; }
}
- エラー発生時にはエラーメッセージを出力して再度正常時と...
/////////////////////////////////////////////////////////...
** シグナルを受け取った時の処理 [#q1278609]
- bashのシェルスクリプトのように、"trap" コマンドを使う。
- 詳しいことは、[[expect の manpage>http://www.linux.or.j...
書式： trap [[command] signals]
- 次の例では、シグナルを受け取った時に、終期化処理を行う ...
proc terminate { } {
# 例えば、ログ取得を終わらせる、とか。
log_file;
}
trap terminate {SIGINT SIGTERM}
/////////////////////////////////////////////////////////...
** log の取得 [#n927a8bf]
- "log_file" コマンドとシグナルを利用すると結構便利に使え...
- 下記は、"interact" で制御をユーザに引き渡した後、 Ctrl-...
proc LogStart { logfile } {
log_file ${logfile};
puts "Logging Start: ${logfile}\r;
}
proc LogStop { } {
puts "Logging Stop\r";
log_file;
}
proc terminate { } {
LogStop;
exit 0;
}
trap terminate {SIGINT SIGTERM}
# 処理を色々記述。
set CTRLA \001
set CTRLB \002
interact {
${CTRLA} { LogStart ${out_log}; }
${CTRLB} { LogStop; }
}
/////////////////////////////////////////////////////////...
* 参考リンク [#laeb8a5b]
- [[もっとTcl/Tk>http://www.interq.or.jp/japan/s-imai/tcl...
ページ名:
![[PukiWiki]](image/tux_100x119.jpg "[PukiWiki]")
