Question

perl 用while循环调用外部程序问题

$a = 0;
while ( $a <= $lc ){
$ln = $f->{doinfo}{gROWname}[$a];
$lb = $f->{doinfo}{gROWcontext}[$a];
$lt = $f->{doinfo}{gROWlayer_type}[$a];
$ls = $f->{doinfo}{gROWside}[$a];
if (($lb eq "board")&&($lt eq "silk_screen")){
do "f:/fill/screen.pl";
}

if(($lb eq "board")&&($lt eq "coverlay")){
do "f:/fill/coverlay.pl"；
}

if (($lb eq "board")&&($lt eq "signal")){
do "f:/fill/signal.pl";
}

if (($lb eq "board")&&($lt eq "drill")){
do "f:/fill/drill.pl";
}

$a++
}
这样调程序只执行第一if语句一结束了，是什么问题？
用什么办法调用程序，能把所有循环的语句执行完啊？

Answer 1

do语句相当于把对应的文件读入到当前位置，例如你的语句：
do "f:/fill/screen.pl";
相当于把f:/fill/screen.pl文件内容粘贴到这个地方，f:/fill/screen.pl文件里面最后如果有exit语句，会导致退出当前的perl文件。

追问

文件里面没有exit的，而且就单单几条程序代码,没有语法在里面也不 行

追答

那在f:/fill/screen.pl的最后添加下面的行试试看：

1;

Answer 2

如果想值都执行完的话可以fork来做的

追问

用FOR来循环？能循环出$ln = $f->{doinfo}{gROWname}[$a];
$lb = $f->{doinfo}{gROWcontext}[$a];
$lt = $f->{doinfo}{gROWlayer_type}[$a];
$ls = $f->{doinfo}{gROWside}[$a];
这几组的函数出来对比吗？