>>Я жутко извиняюсь, но вам стоило бы прочитать пару умных книжек про
>>perl.
>??? Почему пару ?
Найдете больше - скажите мне плиз
=================================
#!/usr/bin/perl -w
use strict;
#
# Возвращает список отсортированных ключей
# Параметры: ссылка на хэш, сепаратор полей, номер (начиная с 0) поля,
# по которому производится сортировка.
sub sort_by_field
{
my ($hh, $sep, $fieldnum) = @_;
map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_, (split($sep, $hh->{$_}))[$fieldnum] ] }
keys %{$hh};
}
# Док-во, что я не наврал
my %h = (
key1 => "aaa::bbb::ccc::ddd",
key2 => "ddd::ccc::bbb::aaa",
key3 => "ccc::ddd::aaa::bbb"
);
for my $num (0..3)
{
print "$num:\n";
for (sort_by_field(\%h, '::', $num))
{
print "\t$_: $h{$_}\n";
}
print "\n";
}
==================================
>>Рекомендую 'Perl Cookbook'.
>Рекомендую "книгу о вкусной и здоровой пище" (сытые люди более благодушны и
>разговорчивы (тоже шутка))
Где ссылка? ;)
Вариант для распечатки
Программирование под UNIX (Public)
on
16-Дек-02, 12:58 (MSK)
