Mega Code Archive

 

Categories / Perl / Statement

 

Foreach Loop Hash Processing

#!/usr/local/bin/perl print " SORTED INDEXES OF THE HASH %ENV \n"; foreach $key (sort (keys %ENV)){    print "key = $key and retrieves: $ENV{$key}\n"; } print "\n  SORTED VALUES OF THE HASH %ENV \n"; foreach $value (sort (values %ENV)){   print "value = $value}\n"; }