perl里调用tcl的疑问

TomPaul

各位，我想在perl脚本里实现这样的功能：
system "source $folder/report_net.rpt";

其中report_net.rp里是由几千句“report_net -net XXX”组成的

我已经使用了%ENV环境变量来传递perl里的变量$folder到TCL，但是总是不成功啊。

我是这么写的：system 'source ::\$env(EDI_CMD)';

walker

如果你的rc文件有定义EDI_CMD变量的话(如.cshrc中，setenv EDI_CMD  Your_path_xxx),可尝试下：
my $folder = "$ENV{EDI_CMD}";
system "source $folder/report_net.rpt";