Hello Monks,
I wrote a script that generates hash of hashes as follows:

$packagehash = {
          ' IBM Tivoli Runtime Security Services Client ' => {
                                                               'Publis
+her' => 'IBM',
                                                               'Versio
+n' => ' 7.1.0.2 ',
                                                               'Produc
+tCode' => ' com.ibm.rtss.client',
                                                               'Produc
+tName' => ' IBM Tivoli Runtime Security Services Client '
                                                             },
          ' IBM Tivoli Runtime Security Services Software Development 
+Kit ' => {
                                                                      
+           'Publisher' => 'IBM',
                                                                      
+           'Version' => ' 7.1.0.2 ',
                                                                      
+           'ProductCode' => ' com.ibm.rtss.sdk',
                                                                      
+           'ProductName' => ' IBM Tivoli Runtime Security Services So
+ftware Development Kit '
                                                                      
+         },
          ' IBM Tivoli Runtime Security Services Server ' => {
                                                               'Publis
+her' => 'IBM',
                                                               'Versio
+n' => ' 7.1.0.2 ',
                                                               'Produc
+tCode' => ' com.ibm.rtss.server',
                                                               'Produc
+tName' => ' IBM Tivoli Runtime Security Services Server '
                                                             }
        };
[download]

I am sending this hash reference $packagehash to a function which generates my desired xml file. I call the function as

&getxml($packagehash);
[download]

My logic in the function to retrieve inner hash key values i.e 'ProductName','ProductCode','Version' and 'Publisher' is not working.Output is blank. Here is the code i wrote:

sub getxml($) {
      my $hashref = shift;
      foreach my $key ( keys %${hashref} ){
          print $key->{'ProductName'}
          print $key->{'ProductCode'}
          print $key->{'Publisher'}
      ...xml logic...
      }
[download]

When i print just $key, it prints outer hash keys,which is correct i.e productnames.But,if i want to extract their corresponding inner hash key and values,Output is showing blank.Please help me where i am making mistake.
Thanks,
Sriram

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.