Tcl ExecDos::exec /NOUNLOAD /TOSTACK 命令详解及示例

ExecDos::exec /NOUNLOAD /TOSTACK \u662f\u4e00\u79cd\u7528\u4e8e\u6267\u884c\u5916\u90e8\u547d\u4ee4\u7684 Tcl \u547d\u4ee4\u3002\u5b83\u7684\u4f7f\u7528\u5982\u4e0b\uff1a\n\n\nExecDos::exec /NOUNLOAD /TOSTACK <command>\n\n\n\u5728\u8fd9\u91cc\uff0c<command> \u662f\u8981\u6267\u884c\u7684\u5916\u90e8\u547d\u4ee4\u3002\n\n/NOUNLOAD \u9009\u9879\u6307\u793a\u5728\u547d\u4ee4\u5b8c\u6210\u540e\u4e0d\u8981\u52a0\u8f7d ExecDos \u6269\u5c55\u3002\u8fd9\u6837\u53ef\u4ee5\u5728\u540c\u4e00\u4e2a Tcl \u89e3\u91ca\u5668\u4e2d\u591a\u6b21\u8c03\u7528 ExecDos \u547d\u4ee4\uff0c\u800c\u4e0d\u9700\u8981\u91cd\u65b0\u52a0\u8f7d\u5b83\u3002\n\n/TOSTACK \u9009\u9879\u6307\u793a\u5c06\u547d\u4ee4\u7684\u8f93\u51fa\u7ed3\u679c\u5b58\u50a8\u5728\u4e00\u4e2a Tcl \u6808\u4e2d\u3002\u8fd9\u6837\u53ef\u4ee5\u65b9\u4fbf\u5728 Tcl \u811a\u672c\u4e2d\u5904\u7406\u547d\u4ee4\u7684\u8f93\u51fa\u3002\n\n\u4ee5\u4e0b\u662f\u4e00\u4e2a\u793a\u4f8b\uff0c\u5c55\u793a\u5982\u4f55\u4f7f\u7528 ExecDos::exec /NOUNLOAD /TOSTACK \u547d\u4ee4\uff1a\n\ntcl\npackage require ExecDos\n\nset command "dir" ;# \u8981\u6267\u884c\u7684\u5916\u90e8\u547d\u4ee4\n\nset output [ExecDos::exec /NOUNLOAD /TOSTACK $command]\n\nforeach line $output {\n puts $line ;# \u6253\u5370\u547d\u4ee4\u7684\u8f93\u51fa\u7ed3\u679c\n}\n\n\n\u4e0a\u8ff0\u793a\u4f8b\u4e2d\uff0cdir \u547d\u4ee4\u7528\u4e8e\u5217\u51fa\u5f53\u524d\u76ee\u5f52\u4e2d\u7684\u6587\u4ef6\u548c\u6587\u4ef6\u5939\u3002set output \u8bed\u53e5\u5c06\u547d\u4ee4\u7684\u8f93\u51fa\u7ed3\u679c\u5b58\u50a8\u5728 output \u53d8\u91cf\u4e2d\u3002\u7136\u540e\uff0c\u4f7f\u7528 foreach \u5faa\u73af\u904d\u5386 output \u53d8\u91cf\u4e2d\u7684\u6bcf\u4e00\u884c\uff0c\u5e76\u4f7f\u7528 puts \u547d\u4ee4\u6253\u5370\u51fa\u6765\u3002\n\n\u8bf7\u6ce8\u610f\uff0c\u4f7f\u7528 ExecDos::exec /NOUNLOAD /TOSTACK \u547d\u4ee4\u65f6\u9700\u8981\u5148\u52a0\u8f7d ExecDos \u6269\u5c55\uff0c\u53ef\u4ee5\u4f7f\u7528 package require ExecDos \u547d\u4ee4\u52a0\u8f7d\u3002