|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ivan Frolkov 2:5020/175.2 12 Sep 2004 23:56:08 To : Nikolay Pichtin Subject : Сортировка -------------------------------------------------------------------------------- Sat Sep 11 2004 22:43, Nikolay Pichtin wrote to All: NP> Hеобходимо отсортировать хэш. Бывает. NP> Делаю, NP> foreach ( NP> sort { ($a =~ /\/(.+)\/(\d+)/)[1] <=> ($b =~ /\/(.+)\/(\d+)/)[1] } Hиколай, а как ты думаешь, что тебе возвращает операция сопоставления с образцом? NP> keys (%Files_item)) { NP> print "$_/$Files_item{$_}\n"; NP> } Кстати, начал выворачивать наизнанку - так выворачивай до конца. NP> * По полу тапки грохотали. (От Фоменко) И панки шли в последни бой? --- ifmail v.2.15dev5 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/3300512a7615.html, оценка из 5, голосов 10
|