Выполнение команды DOS или командного файла в сценарии tcl в Windows 7 с ActiveTcl 8.5 - PullRequest
Новая
       15

Выполнение команды DOS или командного файла в сценарии tcl в Windows 7 с ActiveTcl 8.5

2 голосов
/ 30 сентября 2011

Ниже приведен код tcl. 

#!/bin/sh
# \
exec tclsh "$0"  ${1+"$@"}

package require Expect
package require log
source [file join [info library] init.tcl]

set exp::winnt_debug 1

log::lvChannel debug stdout
log::log debug "debug msg ON\r"

set env(TERM) dumb

array set OPTS {
host    ""
user    ""
passwd  ""
login   telnet
prompt  "(%|#|>|\\$) $"
ls      "/bin/ls -A1"
}

set xlpad "yahoo.com"

exec [auto_execok dir]

while {1} {
spawn ping  $xlpad
set loss 0
set replya 0
for { set pingc 0 } { $pingc < 3 } { incr pingc 1} {
    expect { 
        "timed out" {
            incr loss 1
            puts "intercepted time out message: $loss\n"
        }
        "Reply" {
            incr replya 1
        }    
    }
    if { $replya > 2 } {    
        break               
    }
   }            
break
}

return

Я получил следующие сообщения: 

couldn't execute "C:\Windows\System32\cmd.exe \c dir": no such file or directory
    while executing
"exec [auto_execok dir]"
    (file "mytst.tcl" line 35)

Но пинг работает нормально.

1 Ответ

7 голосов
/ 30 сентября 2011

auto_execok возвращает список, который передается в exec в качестве одного аргумента. Вам необходимо расширить список: 

exec {*}[auto_execok dir]

пример: 

% file mkdir tmp
% cd tmp
% close [open test w]
% exec [auto_execok dir]
couldn't execute "C:\WINNT\system32\cmd.exe \c dir": no such file or directory
% exec {*}[auto_execok dir]
 Volume in drive D is Data
 Volume Serial Number is ....

 Directory of d:\glennj\tmp

2011-09-30  10:08 AM    <DIR>          .
2011-09-30  10:08 AM    <DIR>          ..
2011-09-30  10:08 AM                 0 test
               1 File(s)              0 bytes
               2 Dir(s)  77,613,654,016 bytes free
...