Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
my ( $key, $value );
...
while ( ( $key, $value ) = each %hash ) {
    print "$key and $value \n";
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
my ( $key, $value );
...
while ( ( $key, $value ) = each %hash ) {
    print "$key and $value \n";
}
  3. or download this
    $hash{rat} .= "fhhfjfjj";
$hash{rat} .= "dggdgdgdg";