Calling a perl script(that returns an array) within another perl script.

[uday_sagar]

Monks,

I have to receive an array from a perl code by another perl. I thought this way, but isn't working!

@array = `perl ./perlmonks_are_great.pl`;
print @array;

Thanks

[choroba]

Does your perlmonks_are_great.pl script print the array, one member per line? If not, your script can not work.
Update:
Using Data::Dumper, Storable or YAML is another way of moving data around. If your array can contain strings with newlines or references, the backquotes are not powerful enough.

[moritz]

In what way is it not working? Are blue flames coming out of your computer when you try to run it? No? Then what happens?

It can be helpful to refactor the perl script to expose all interesting functionality as a module and then use it. Then you don't have to care about the communication between the processes, the data serialization and deserialization and, and error handling becomes much easier.

[greengaroo]

It works fine for me! Since you didn't provide the code for your perlmonks_are_great.pl script, here is mine:

# Simple array
my @array = qw(test1 test2 test3 test4 test5);
# Printing one-liner 
print join ("\n", @array), "\n";

Note: if you just print @array; you end up with only one string when you "read" your script: test1test2test3test4test5. You must have a new line after each element of your array. Also, the new line character (\n) will be saved too so you need to chomp it if you don't need it.

[aitap]

What does the array contain? What it the record separator used? You may need to serialize your data before printing it (for example, using YAML, JSON or something else).