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

uday_sagar has asked for the wisdom of the Perl Monks concerning the following question:

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;
[download]

Thanks

Comment on Calling a perl script(that returns an array) within another perl script. Download Code

Replies are listed 'Best First'.
Re: Calling a perl script(that returns an array) withing a perl script. by choroba (Cardinal) on Aug 21, 2012 at 12:17 UTC
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. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: Calling a perl script(that returns an array) withing a perl script. by moritz (Cardinal) on Aug 21, 2012 at 12:18 UTC
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. Perl 6 - the future is here, just unevenly distributed	[reply]
Re: Calling a perl script(that returns an array) within another perl script. by greengaroo (Hermit) on Aug 21, 2012 at 12:56 UTC
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";` [download] 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. Take my advice. I don't use it anyway. -- greengaroo	[reply] [d/l] [select]
Re: Calling a perl script(that returns an array) within another perl script. by aitap (Curate) on Aug 21, 2012 at 12:23 UTC
What does the array contain? What it the record separator used? You may need to serialize your data before `print`ing it (for example, using YAML, JSON or something else). Sorry if my advice was wrong.	[reply] [d/l]