不可以:
open FILE1,"1";
open FILE2,"2";
while(defined($line1=
print $line1;
while(defined($line2=
print $line2;
}
}
可以:
open FILE1,"1";
while(defined($line1=
print $line1;
open FILE2,"2";
while(defined($line2=
print $line2;
}
}
可以使用for的嵌套
open F1,"1";
open F2,"2";
@a1=
@a2=
for $line1 (@a1){
....
for $line2 (@a2){
....
}
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024