<div dir="ltr">foreach my $key ( keys %added ) {<br>    $master{$key}{$_} = $added{$key}{$_} for keys %{$added{$key}};<br>}<br><br>:)<br><br><div class="gmail_quote">On Mon, Oct 29, 2012 at 8:08 PM, Meir Guttman <span dir="ltr">&lt;<a href="mailto:meir@guttman.co.il" target="_blank">meir@guttman.co.il</a>&gt;</span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div link="blue" vlink="purple" lang="EN-US"><div><p>Dear Perlers,<u></u><u></u></p><p>For the last two hours, my head is spinning, but I cannot find how to do the following:<u></u><u></u></p>

<p>I have two hashes, both 2D, the %master and another one from which I want to copy values to the master.<u></u><u></u></p><p>The end result should have the same &quot;rows&quot; as in the original master, but with the the tuples of the second hash added to the inner hash of these rows.<u></u><u></u></p>

<p>I need to do this in a subroutine, so what I have are two hash-references.<u></u><u></u></p><p>I am assuming that the general structure should be like the following. What I am missing is the innermost assignment in the &quot;foreach&quot; of the sub<u></u><u></u></p>

<p><u></u> <u></u></p><p><span style="font-family:&quot;Courier New&quot;">use strict;<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">use warnings;<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">use use Data::Dumper;<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">my %master = (<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  row_1 =&gt; {value =&gt; 10, size =&gt; 1000},<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  row_2 =&gt; {value =&gt; 20, size =&gt; 2000},<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  row_3 =&gt; {value =&gt; 30, size =&gt; 3000},<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  row_4 =&gt; {value =&gt; 40, size =&gt; 4000},<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">);<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">my %added = (<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  row_1 =&gt; {line =&gt; &#39;one&#39;,   level =&gt; &#39;High&#39;},<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  row_2 =&gt; {line =&gt; &#39;two&#39;,   level =&gt; &#39;Med&#39;},<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  row_4 =&gt; {line =&gt; &#39;four&#39;,  level =&gt; &#39;Low&#39;},<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  row_5 =&gt; {line =&gt; &#39;five&#39;,  level =&gt; &#39;Low&#39;},<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  row_6 =&gt; {line =&gt; &#39;six&#39;,   level =&gt; &#39;Med&#39;},<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  row_7 =&gt; {line =&gt; &#39;seven&#39;, level =&gt; &#39;High&#39;},<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">);<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">combine_values(\%master, \%added);<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">Dump (\%master);<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">Exit(0);<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">sub combine_values {<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  my $master_href = shift;<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  my $added_href  = shift;<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;"><u></u> <u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  foreach my $key (sort keys %{$master_href}){<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    # Please, what comes here????<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  }<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">}<u></u><u></u></span></p>

<p><u></u> <u></u></p><p><span style="font-family:&quot;Courier New&quot;">__END__<u></u><u></u></span></p><p><u></u> <u></u></p><p>Dumper should output:<u></u><u></u></p><p><u></u> <u></u></p><p><span style="font-family:&quot;Courier New&quot;">$VAR1 = {<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  &#39;row_1&#39; =&gt; {<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;value&#39; =&gt; 10,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;size&#39; =&gt; 1000,<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    &#39;line&#39; =&gt; &#39;one&#39;,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;level&#39; =&gt; &#39;High&#39;,<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  }<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  &#39;row_2&#39; =&gt; {<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;value&#39; =&gt; 20,<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    &#39;size&#39; =&gt; 2000,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;line&#39; =&gt; &#39;two&#39;,<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    &#39;level&#39; =&gt; &#39;Med&#39;,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  }<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  &#39;row_3&#39; =&gt; {<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    &#39;value&#39; =&gt; 30,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;size&#39; =&gt; 3000,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">  }<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  &#39;row_4&#39; =&gt; {<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;value&#39; =&gt; 40,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;size&#39; =&gt; 4000<u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">    &#39;line&#39; =&gt; &#39;four&#39;,<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">    &#39;level&#39; =&gt; &#39;Low&#39;    <u></u><u></u></span></p>

<p><span style="font-family:&quot;Courier New&quot;">  }<u></u><u></u></span></p><p><span style="font-family:&quot;Courier New&quot;">}<u></u><u></u></span></p></div></div><br>_______________________________________________<br>


Perl mailing list<br>
<a href="mailto:Perl@perl.org.il">Perl@perl.org.il</a><br>
<a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br></blockquote></div><br></div>