Help for this page

Select Code to Download

Select or download this

sub is_present {
    my $cluster = shift;
    scalar grep {/^\Q$cluster\E\.hosts$/o} @{$HoL{$cluster}};
}

Select or download this

sub is_present {
    my $cluster = shift;
    scalar grep {$_ eq "$cluster.hosts"} @{$HoL{$cluster}};
}