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>
|