teratermマクロ lsの結果をファイルに落としたい

Question

現在、teratermマクロを作成しているのですが、
lsの結果をファイルに落とそうとしてうまくいっていません。

実際に作成しているマクロは以下の通りです。

filecreate fhandle_log "test.txt"

setsync 1

sendln 'ls -lrt | tail -5'
recvln;エコーバックの読み捨て

result=1

while result==1
  recvln
  filewriteln fhandle_log inputstr  
  strscan inputstr 'root@'
endwhile

setsync 0

上記の結果では、lsの結果が1行しか取得できません。
分かる方がいましたら教えてください。

Answer 1

既に yureighost さんが書かれていますが、一行だけになるのは strscan は該当する文字列が無い時は0を返すからです。
そして while result == 0 に変えた場合、今度はプロンプトの行で改行が行われないので recvln でプロンプトの行が読めず止まってしまいます。

こういう場合は timeout を設定する事が多いですが、あえて timeout に頼らない案を出してみます。
ls の出力の後ろにマークとなる行を出力して、その行の前までを書き込むという方法です。

filecreate fhandle_log "test.txt"
 
setsync 1
 
sendln 'ls -lrt | tail -5; echo "=== End of ls ==="'
recvln;エコーバックの読み捨て
 
do
  recvln
  strcompare inputstr "=== End of ls ==="
  if result == 0 break
 
  filewriteln fhandle_log inputstr
loop
 
fileclose fhandle_log

Comments

[tamina]

期待通りの動作が出来ました。
ありがとうございました。

Answer 2

teratermのログ出力(logopen、logcloseコマンドあたり)で代用できないでしょうか

Comments

[tamina]

いろんなサーバーにアクセスして同じことやろうとしてるので、一回一回別のファイルとして保存したいという背景があるのでできません。

[yukky1201]

？？？
filecreate fhandle_log "test.txt" すべて同じファイルを作成するようにしているように思えますが。

logopen時に任意のログファイル名を指定できます。

[tamina]

本当は、各サーバーにtelnetしたりなど、もうちょっと長いマクロなのですが質問したいところだけ抜き出してコマンドも少し修正して投稿してます。
デフォルトでteratermのログファイルを出しているので、そっちの出力も持ってかれないか心配です。

Answer 3

recvlnでホストから受信できるのは一行分で、
lsの結果には'root@'文字が含まれていないため一行読んだところで
strscan処理でresultに0の結果が返ってしまうのが原因ですね。

そして対案ですが個人的に思いついた方法としてはタイムアウトを設定しておけば
recvlnで受信ができなくなったところでresultが0になるというものです。

filecreate fhandle_log "test.txt"

setsync 1

sendln 'ls -lrt | tail -5'
recvln;エコーバックの読み捨て

timeout=1
result=1

while result==1
  recvln
  filewriteln fhandle_log inputstr
endwhile

setsync 0

fileclose fhandle_log

これでとりあえずはwhileで無限ループになることなく処理を終了させることはできます。

Comments

[tamina]

ありがとうございます。
lsの結果が結構長いので、タイムアウト値チューニングが必要そうです。
他に手段が無ければ、この方法で行こうと思います