请教前辈一下，如何在perl脚本中，嵌套调用tcl或shell的脚本

xixizhihua

大家好，其实这个问题可以化简成这样一个问题。
如果在不同脚本间进行函数调用。
比如，我正在运行perl脚本，产生了一个数据A。
我把它作为输入，给一个shell或者tcl脚本。
该脚本，在自己的语言内，生成了一个数据B。
我现在把它拿出来，给我的perl脚本进行进一步的处理。

我想请教一下，如果以perl和shell（或tcl）之间交互为例
主脚本用perl编写
如何在其中调用别的脚本程序，以及如何把别的脚本程序的结果返回给perl继续进行后续操作。
谢谢大家啦：）

sosflyer

回复 1# xixizhihua


    my $haha = `sh aaa.sh A`;

xixizhihua

谢谢，对了,那个aaa.sh是脚本, A是shell的内部变量吗?

wand65

windows下的脚本
tcl 脚本位于d:/temp/000.tcl：set a 100
             puts $a
perl 脚本： $a=  system "d:/temp/000.tcl";
print $a;

yjh777

system 返回值是 进程的退出码;

用 qx{}  吧