note
tcf22
It looks like it should work. I tried the following on Win32 Active Perl 5.8.<BR><BR>
<B>test1.pl</B>
<CODE>
my @a;
foreach(1..50){
$a[$_-1] = $_;
}
open(T, "test2.pl @a|");
while(<T>){
print;
}
close(T);
</CODE>
<BR>
<B>test2.pl</B>
<CODE>
foreach(@ARGV){
print "$_\n";
}
</CODE>
If I run test1.pl, I get 1..50 printed out on seperate lines, just like you would expect.
<BR><BR>
<B>UPDATE:</B> Also works on Red Hat Linux 9. (Just change <CODE>"test2.pl @a|"</CODE> to <CODE>"./test2.pl @a|"</CODE> of course).
<div class="pmsig">
<div class="pmsig-62377">
<P>- Tom</P>
</div></div>
337747
337747