37,721
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lgjut 2003-07-08
- 打赏
- 举报
可以用管道操作：
example1.pl:
$var ='TEST';
print "$var";
#############################
example2.pl:
open(INPIPE,"perl c:/example1.pl |");
$input = <INPIPE>;
print $input;
close(INPIPE);
example1.pl:
$var ='TEST';
print "$var";
#############################
example2.pl:
open(INPIPE,"perl c:/example1.pl |");
$input = <INPIPE>;
print $input;
close(INPIPE);
