<div dir="ltr">Thanks guys.  Painful to be so clueless.  Many thanks also for the quick reply.<br></div><div class="gmail_extra"><br><div class="gmail_quote">2015-08-11 10:21 GMT-05:00 Shawn Carroll <span dir="ltr"><<a href="mailto:shawn.c.carroll@gmail.com" target="_blank">shawn.c.carroll@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">You are recreating your error_hash each time you try to add to it. Instead:<div><br></div><div>$error_hash{$key} = 'is missing';</div></div><div class="gmail_extra"><br clear="all"><div><div><div dir="ltr"><br><a href="mailto:shawn.c.carroll@gmail.com" target="_blank">shawn.c.carroll@gmail.com</a><br>Software Engineer<br>Soccer Referee</div></div></div><div><div class="h5">
<br><div class="gmail_quote">On Tue, Aug 11, 2015 at 10:16 AM,  <span dir="ltr"><<a href="mailto:richard@rushlogistics.com" target="_blank">richard@rushlogistics.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">In the script below I can't figure out what I am doing wrong in building the $error_hash refrence. It only ends up containing the last missing parameter instead all that are missing (Lname and Email) can anyone help point out something that should be obvious to me?<br>
<br>
Thanks<br>
<br>
#!/usr/bin/perl;<br>
<br>
use strict;<br>
use warnings;<br>
<br>
my $key;<br>
my $hash;<br>
my $value;<br>
my $error_hash;<br>
my %error_hash;<br>
my %hash;<br>
<br>
# create a hash<br>
<br>
$hash = {<br>
<br>
    FName  => 'Gregory',<br>
    LName  => '',<br>
    Email  => '',<br>
    Phone  => '<a href="tel:312-888-9999" value="+13128889999" target="_blank">312-888-9999</a>',<br>
<br>
   };<br>
<br>
# check the hash for missing values.<br>
 while ( ($key, $value) = each %$hash) {<br>
   <br>
         print "What we have in hash: $key => $value\n";<br>
    # test for an empty element<br>
    if (!defined($value) || $value eq '') {<br>
    print "NO " . $key . " WAS ENTERED\n";<br>
<br>
    $error_hash = {  # create a hash with missing paramaters & msg<br>
       <br>
          $key => ' is missing.',<br>
        <br>
     }<br>
<br>
    }<br>
}<br>
<br>
# iterate the error hash<br>
<br>
   %hash = %$error_hash;<br>
         foreach my $k (keys %hash) {<br>
             print "$k: $hash{$k}\n";<br>
        <br>
         }<br>
_______________________________________________<br>
Chicago-talk mailing list<br>
<a href="mailto:Chicago-talk@pm.org" target="_blank">Chicago-talk@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/chicago-talk" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/chicago-talk</a></blockquote></div><br></div></div></div>
<br>_______________________________________________<br>
Chicago-talk mailing list<br>
<a href="mailto:Chicago-talk@pm.org">Chicago-talk@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/chicago-talk" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/listinfo/chicago-talk</a><br></blockquote></div><br></div>