Perl: Compare 2 hash table values

by

@pataka : I am not printing twice but doing comparison for both alpha-numeric strings . So i have printed one for stings and another for numbers . We can do the same even in this way as shown below:

    #Same Key and Value
foreach my $val1 (keys %hash1)
 {
      foreach my $val2 (keys %hash2)   {

             if($val1 eq $val2)        {
                  if($hash1{$val1} eq $hash2{$val2}) {
                    print "Key:$val1\t" ;
                    print "Value:$hash1{$val1}\n";

                      }   
                  }  
                }
        }

More Related Contents:

  1. How can I convert my shell script to Perl? [closed]
  2. Touching files listed in another file [closed]
  3. Operators in Perl [closed]
  4. Perl – Global symbol $DIR requires explicit package name (why can’t I print the output?) [closed]
  5. perl XML::Simple print issue [closed]
  6. What’s the easiest way to install a missing Perl module?
  7. Doesn’t Perl include current directory in @INC by default?
  8. Why does my file content/user input not match? (missing chomp canonical) [duplicate]
  9. What is the best way to slurp a file into a string in Perl?
  10. Scalar vs List Assignment Operator
  11. How can I check if a Perl array contains a particular value?
  12. How to fix a locale setting warning from Perl
  13. How can I fire and forget a process in Perl?
  14. Getting STDOUT, STDERR, and response code from external *nix command in perl
  15. What is the difference between new Some::Class and Some::Class->new() in Perl?
  16. Iterating hash based on the insertion order?
  17. Why can’t I match my string from standard input in Perl?
  18. How do I choose a package name for a custom Perl module that does not collide with builtin or CPAN packages names?
  19. What’s broken about exceptions in Perl?
  20. How do I get the full path to a Perl script that is executing?
  21. Perl subroutine arguments
  22. What does the function declaration “sub function($$)” mean?
  23. Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus)
  24. How do I lock a file in Perl?
  25. Why is the Switch module deprecated in Perl?
  26. Hidden features of Perl?
  27. In Perl, how can I check from which module a given function was imported?
  28. How can I verify that a value is present in an array (list) in Perl?
  29. Why do hash keys have different order when printing?
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment