Hello there! this is Arwa a newbie in Perl, I'v just started studying it on my own couple of months ago! so here I'm learning about hashes and couple of days ago I created a scenario where there's this fixed set of key-value pairs where I want to acquire the name from the user through STDIN and then compare that name with the set of keys I've within the hash and finally print the corresponding value(which is the family name for that person/key)! what happens actually when I run this script is nothing! so I was thinking if the comparing or the loop has already took place or not! so here's my code, I'd really love to hear what do you think of this guys!

 
my %family_name = (
   "Alis" => "Williams",
   "Sara" => "McAwesome",
   "Serena" => "Anderson",
   );
my $key = keys %family_name;
my $value = values %family_name;

print "Enter a name to print it's family name : \n";
chomp(my $name= <STDIN>);

foreach my $key1 (sort keys %family_name)
{
 if ($name eq $key1)
 {
  print "$key1 is already there, and its family name is $family_name{$
+key1} ";
  }
 }

[download]

In reply to Comparing Hash's key to an <STDIN> and print it's corresponding value by xxArwaxx

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.