使用位于网络驱动器上的 TCL 应用程序打开 Web URL

Question

我刚刚完成了一个 TCL Db 应用程序，其中包含打开网页 URL 的功能。我的代码如下（$adr 是 url）：

eval exec [auto_execok start] \"\" [list $adr]

这段代码在我的 Windows 工作站上运行良好。但是，将应用程序放置在网络驱动器上后，我收到以下错误：

“\Drive\Share\Folder\Subfolder” CMD.EXE 以上述路径作为当前目录启动。 不支持 UNC 路径。默认为 Windows 目录。

网页仍然打开，但我仍然收到 TCl 错误。

有人知道在服务器或网络环境中使用 TCL 打开 URL 的更好方法吗？

谢谢你，

东风公司

Answer 1

当 Tcl 尝试执行您指定的 URL 时，显示的消息实际上是由 Windows 命令解释器 CMD.EXE 生成的。当它以设置为网络路径的当前工作目录启动时，它会向 stderr 生成该警告消息。

您可以尝试的另外两件事：

1. 使用 -ignorestderr 运行 exec。这将导致此特定警告消息（以及写入 stderr 的任何其他消息/错误不会在 Tcl 中产生错误）。当您用 catch 包装代码时，您基本上会忽略此错误和任何其他错误，这可能并不理想。

    eval exec -ignorestderr [auto_execok start] \"\" [list $adr]
   
   

2. 在执行之前将工作目录设置为另一个路径，这就是 CMD.EXE 在打印出该警告后所做的事情：

   <预> cd $::env(TEMP)
   eval exec [auto_execok start] \"\" [list $adr]
   

当然，请小心运行来自不受信任输入的任意命令和参数，否则有人可能会使用您的应用程序作为后门来运行恶意命令。