Help for this page

Select Code to Download

Select or download this

sub mergedHashKeys{ 
    my( $r1, $r2 ) = @_;
...

pp mergedHashKeys( $hash1, $hash2 );;
["hash2_specific_key", "common_key", "hash1_specific_key"]

Select or download this

sub mergedHashKeys{ 
    [ keys %{{ %{ $_[0] }, %{ $_[1] } }} ] 
};;