G'day Sriram,
The built-in module Storable allows you to store Perl data structures and retrieve them later. This may be suitable for your use.
Here's a very quick-and-dirty example of a "parent script" (pm_1078041_parent.pl) calling a "child script" (pm_1078041_child.pl). The child creates a hashref, stores it and exits. The parent retrieves the hashref and uses it to create XML.
[XML::Simple was only used for demonstration purposes. Please don't take that as any sort of recommendation.]
The parent script (pm_1078041_parent.pl):
#!/usr/bin/env perl use strict; use warnings; use Storable; use XML::Simple; my $file = 'pm_1078041_store'; `pm_1078041_child.pl`; my $hashref = retrieve $file; my $xml = XML::Simple->new->XMLout($hashref); print $xml;
The child script (pm_1078041_child.pl):
#!/usr/bin/env perl use strict; use warnings; use Storable; my $file = 'pm_1078041_store'; my $hashref = { key1 => 'qwerty', key2 => 'asdfgh', key3 => { A => 1, B => 2, C => 3, }, key4 => [5, 6, 7], }; store $hashref => $file;
A sample run:
$ pm_1078041_parent.pl <opt key1="qwerty" key2="asdfgh"> <key3 A="1" B="2" C="3" /> <key4>5</key4> <key4>6</key4> <key4>7</key4> </opt>
-- Ken
In reply to Re: How to return Hashref from one script to another script?
by kcott
in thread How to return Hashref from one script to another script?
by sriram83.life
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |