Help for this page

Select Code to Download


  1. or download this
    %{ { testa() } }
    
  2. or download this
    while( my( $key, $val ) = each( %{ { testa() } } ) {
        print "Key: $key\tValue: $val\n";
    }
    
  3. or download this
    while( my( $key, $val ) = each( %{ testa() } ) {
        print "Key: $key\tValue: $val\n";
    ...
        );
        return \%s;
    }