Help for this page

Select Code to Download


  1. or download this
    foreach my $key (keys %hash){
      print "$key => $hash{$key}\n";
    ...
    foreach (keys %hash){
      print "$_ => $hash{$_}\n";
    }
    
  2. or download this
    while ( my ($key, $value) = each (%hash)){
      print "$key => $value\n";
    }