Dotaz: perl - hledání v poli (nejbližší vyšši / nižší)

[Jira]

Zdravím. Mám pole čísel @a a číselnou hodnotu $i. Existuje v perlu funkce, která vrátí $i, pokud je hodnota $i mezi prvky @a, jinak nejbližší vyšší hodnotu z @a (pokud tam nějaká je?). Díky.

Odpovědi

[zabza]

Asi neexistuje, ale jde o obyčejné hledání minima, takže... v čem je problém?

[Hynek (Pichi) Vychodil]

sub hyper_Jira_function {
my $i=shift;
my $m;
foreach (@_) {
  next if $_<$i;
  $m=$_ if !defined $m or $_<$m;
}
return $m
}