Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. Hash Key-Value Pair Retrieval
$separator = "=" x 80;
while (($key, $value) = each %ENV){
   print "$key \t\t==> $value\n";
}
print "$separator\n";
foreach $key (sort keys %ENV){
   print qq|$key \t\t==> $ENV{"$key"}\n|;
}