|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Dmitriy Dubinin 2:5029/34 25 Mar 2002 17:08:17 To : Andrey Sapozhnikov Subject : Re: max 'n min -------------------------------------------------------------------------------- > From: Andrey Sapozhnikov <sapa@icb.chel.su> > Dmitriy Dubinin wrote: >> Hужно получить min и max из ключей хеша. Что-то можно сделать? >> Кроме >> >> (sort {$a cmp $b}, keys %h)[0] >> (sort {$b cmp $a}, keys %h)[0] > Все тривиально и прозрачно. > my ($min, $max); > foreach (keys %h) { > $max = $_ if !defined($max) || $_ gt $max; > $min = $_ if !defined($min) || $_ lt $min; > } Спасибо. Думаю это лучше. Вот еще вопрос: числом элементов массива можно управлять через переменную $#name, а как на счет анонимных массивов? -- Dmitriy Dubinin _dmitriy@mail.ru --- tin/pre-1.4-19990927 ("Nine While Nine") (UNIX) (FreeBSD/3.5-STABLE (i386)) * Origin: Blue Flame Station (2:5029/34@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/12153b57b93bf.html, оценка из 5, голосов 10
|