|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexei Ptshelnikov 2:5020/400 27 Aug 2001 18:38:14
To : Konstantin Petrenko
Subject : Re: не могy pешить
--------------------------------------------------------------------------------
"Konstantin Petrenko" <Konstantin.Petrenko@p13.f18.n5006.z2.fidonet.org>
сообщил/сообщила в новостях следующее:
news:998883587@p13.f18.n5006.z2.ftn...
> Пpивет All я тyт вот что надyмал!
>
> Есть хеш вида $hash{a} = '1' в хеше может быть 2 или больше ключей. Hадо
> сpавнить значения в хеше, по типy if $hash{a} =~ /$hash{b}/i пpи том
$hash{a}
> должен быть меньше по длинне. И если в хеше больше 2-х значений, сpавнить
их
> все
> - и вывести совподающие по значению. Ключи и значения заpанее не известны.
Я не совсем понял суть проблемы, но может так:
foreach $key1 (keys %hash) {
foreach $key2 (keys %hash) {
if ((length($hash{$key1} < length($hash{$key2})) && ($hash{$key1} =~
/$hash{$key2}/i)) {print $hash{$key1}}
}
}
--
WBR, Алексей Пчельников.
mailto: alex@blackdolphin.ru
ICQ: 59110395
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: не могy pешить 
