perl里调用tcl的疑问
时间：10-02
整理：3721RD
点击：
各位，我想在perl脚本里实现这样的功能：
system "source $folder/report_net.rpt";
其中report_net.rp里是由几千句“report_net -net XXX”组成的
我已经使用了%ENV环境变量来传递perl里的变量$folder到TCL，但是总是不成功啊。
我是这么写的：system 'source ::\$env(EDI_CMD)';
system "source $folder/report_net.rpt";
其中report_net.rp里是由几千句“report_net -net XXX”组成的
我已经使用了%ENV环境变量来传递perl里的变量$folder到TCL，但是总是不成功啊。
我是这么写的：system 'source ::\$env(EDI_CMD)';
如果你的rc文件有定义EDI_CMD变量的话(如.cshrc中，setenv EDI_CMDYour_path_xxx),可尝试下：
my $folder = "$ENV{EDI_CMD}";
system "source $folder/report_net.rpt";