Razeni hashu

[Jindrich Kubec]

Hell-o!

Mam takovyhle hash:
$news{ $name }{ URL } = $url;
$news{ $name }{ TODAY } = $today;

Udelam si vzdy pole klicu a podle toho poradi pak vypisuju obsah hashe v
nejakem foreach.

Pole vytvarim takhle pro abecedni razeni:
@db_alpha = sort keys %news;

A takhle pro razeni podle hodnoty TODAY a pak podle abecedy.
@db_today = sort { ( $news{$b}{ TODAY } <=> $news{$a}{ TODAY } ) || ( $a
cmp $b ) } keys %news;

Neda se to napsat nejak jinak a hezcejc? :-)

-- 
Jindroush <kubecj na asw.cz>
See http://www.asw.cz/~kubecj for Atari 8bit utils!