Help for this page

Select Code to Download


  1. or download this
    use List::Util qw(min);
$hash{$set}{min} = min @{$hash{$set}{data}};
  2. or download this
    for (@{$hash{$set}{data}}) {
    $hash{$set}{min} = $hash{$set}{min} < $_
        ? $hash{$set}{min}
        : $_;
}
  3. or download this
    my $min := $hash{$set}{min};
for(@{%hash{$set}{data}}) { $min = $min < $_ ? $min : $_ }