Help for this page

Select Code to Download

Select or download this

sub isSubsetHash2 {
    my @small = split ':', $_[0];
...
    @big{ split( ':', $_[1] ) } = ();
    return scalar( @small ) == grep { exists $big{$_} } @small;
}