Re: How to pass array as a reference from one perl file to other

[John M. Dlugosz]

I would agree with the second reply, that in this example your test-2.pl should be loaded to become part of the same program, not run as a separate process.

But maybe the example is easier than the real problem? If it's an existing program or a real mess and you can't alter it, you need some kind if Inter-Process Communication. But if you can't alter the existing program, you can't make it do that... so how is program 2 expecting the data already? Maybe you simply wanted to pass the contents of the array as individual arguments.

But you are also using the pipe-to form, so will program 2 be reading from standard input?

Without the pipe behavior, you can write:

system ("./test-2.pl", @$test);

And have test-2 see the values as the contents of @ARGV.

If you really do want to pass the data via standard input and the pipe, then your print statement would be: print FILE (join "\n",@$test); that is, write the contents of the array one value per line, which is how your existing test-2 is reading it.

Edited for correction

[Anonymous Monk]

I am explaning my function below.

I am using perl tk application to extract user input from this main program and pass the arguments from the user to child program where it connect to database and perform query.

The child program after performing the query should pass the result to the parent module.

I need some suggestion on how to perform an two way communication between 2 perl programs where each program can chnage it control from each other saw some tips from text books on 2 way communication via use IO::Handle but its very hard to grasp its concept

[lidden]

system ("./test-2.pl", @$test);

And have test-2 see the values as the contents of @_.

No, the values are in @ARGV.