<div class="gmail_quote">Is it intentional, ironic or just amusing that you are referring to Perl as &quot;Pearl&quot;? :)<br><br>-J<br><br>2009/11/18 Daniel Herrington <span dir="ltr">&lt;<a href="mailto:dherrington@robertmarktech.com">dherrington@robertmarktech.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">


  

<div bgcolor="#ffffff" text="#000000">
All,<br>
<br>
Hans, that deref was the problem, thanks. Verbosity tends to be a
holdover from when I was less secure in my Pearl coding and wanted to
know exactly what I did. I refactor towards verbosity when I run into
problems, which in this case didn&#39;t actually help solve anything. I was
actually using the following when i went to test and noticed the issue:<br>
<br>
push (@{$newBoxNameH{$newBoxName}}, $newJobName);<br>
<br>
This replaced that whole code snippet in B.<br>
<br>
Shlomi, thanks for the tips. The Code in snippet A was from over a year
ago, before I started getting serious with Pearl and learned about how
to handle complex data structure and dereferencing. I know I need to go
back and refactor the sub that A came from, and one day as God is my
witness I will ;) As always, time is the issue.<br>
<br>
The variable names aren&#39;t meant to be Hungarian, just simply how I
started with Pearl and identifying an array from a hash, etc. Now it&#39;s
just laziness as those names pop into my head when thinking of new
variables. I do like my variables to be somewhat related to the data
they contain, but it&#39;s an evolving standard in my head.<br>
<br>
Again, thanks all for the help and sorry for the double post.<br>
<br>
Dan H.<div><div></div><div class="h5"><br>
<br>
Hans Dieter Pearcey wrote:
<blockquote type="cite">
  <pre>Excerpts from Daniel Herrington&#39;s message of Wed Nov 18 10:12:07 -0500 2009:
  </pre>
  <blockquote type="cite">
    <pre>       my @arJobNamesB = $ref_arJobNamesB;
    </pre>
  </blockquote>
  <pre>I bet you meant &#39;@$ref_arJobNamesB&#39;.

Your code would probably be easier to skim for this kind of thing if it were
less verbose.  For example:

  </pre>
  <blockquote type="cite">
    <pre>           if ($newBoxNameH{$newBoxName}) {
               my $ref_arJobNames = $newBoxNameH{$newBoxName};
               my @arJobNames = @$ref_arJobNames;
               push (@arJobNames,$newJobName);
               $newBoxNameH{$newBoxName} = \@arJobNames;
           } else {
               my @arJobNames;
               push (@arJobNames,$newJobName);
               $newBoxNameH{$newBoxName} = \@arJobNames;
           }
    </pre>
  </blockquote>
  <pre>  my @foo;
  push @foo, $x;
  $thing = \@foo;

can be much more easily written as

  $thing = [ $x ];

In fact, the whole conditional I quoted above could be one line.

  push @{ $newBoxNameH{$newBoxName} }, $newJobName;

Perl will automatically turn the nonexistent hash element into an array
reference for you.  If this is too magical for your taste, default it to an
empty arrayref first:

  $newBoxNameH{$newBoxName} ||= [];

hdp.
_______________________________________________
Pdx-pm-list mailing list
<a href="mailto:Pdx-pm-list@pm.org" target="_blank">Pdx-pm-list@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/pdx-pm-list" target="_blank">http://mail.pm.org/mailman/listinfo/pdx-pm-list</a>
  </pre>
</blockquote>
</div></div></div>

<br>_______________________________________________<br>
Pdx-pm-list mailing list<br>
<a href="mailto:Pdx-pm-list@pm.org">Pdx-pm-list@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/pdx-pm-list" target="_blank">http://mail.pm.org/mailman/listinfo/pdx-pm-list</a><br></blockquote></div><br><br>