|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ivan Frolcov 2:5020/400 23 Jun 2003 01:12:34 To : ‚« ¤Ё¬Ёp ѓpҐЎҐў Subject : Re: как бы покомпактнее осуществить сравнение массивов -------------------------------------------------------------------------------- On Sun, 22 Jun 2003 22:07:18 +0400, чМБДЙHЙp зpЕВОЕЧ <чМБДЙHЙp.зpЕВОЕЧ@p2.f4.n5059.z2.fidonet.org> wrote: > Vladimir.Grebnev@p2.f4.n5059.z2.fidonet.org > >Здравствуй All! > >Есть массив @content, как узнать, есть ли в массиве @content хоть одно слово из >массива @allwords (где каждый элемент массива @allwords одно слово, а массив >@content это текст), Традиционно. Для кадой строки текста, для каждого искомого слова смотрим, а не встречается ли такое слово? В приципе можно и так: $found = @{{ map { map { $_ , 1} split ' ' } @content}}{@allwords}; но, по-моему, это неоправданно сложно. >далее есть массив @content, как из него выдpать всен линки >(а также возможно ли выдpать линки, только имеющие в своем составе слова из >@allwords) и сложить их в массив @links, пока пpиходят на ум какието, как мне >кажется неpациональные pешения, может map и grep как то тут должны ускоpить? :) Вряд ли. Вот головоломистей сделать - это запросто. --- ifmail v.2.15dev5 * Origin: Golden Telecom (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/208012597b7a.html, оценка из 5, голосов 10
|