[PERL] сравнить строку с массивом. или типа того

[Alex Keda]

есть некоторое пеерчисление элементов. реализовать можно как угодно - массивом, или через запяточку, например - тогде в переменной будет ($list, например же).
надо сравнить, что-то типа

Код: Выделить всё

if ($user eq $list)

======
объясню. сейчас условие выполняется для одного пользователя - по совпадению имени. а надо переделать кусок на выполнение условия дл некоего набора пользователей. набор могу сформировать как угодно

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

Код: Выделить всё

foreach $u (@array){
  if($u eq $user){
    <dooooo>;
    break;
}
}

а лучше коллекцией сделай или как оно в пёрле.... хэшем вот!

Код: Выделить всё

if( exists $users_hash{$user}){
<doooooo>;
}

[Alex Keda]

форичем перебрать и каждый сравнить любой дурак может
тока сравнений может быть слишком много - порядка 500x200x200 - боюсь тут даже перл загнётся...

[hizel]

хэш, хэш! наше всё!

[Alex Keda]

как мне его к этому прикрутить:

Код: Выделить всё

if ($user eq $list)

[hizel]

Код: Выделить всё

if( exists $list{$user}){
<doooooo>;
}

[Alex Keda]

обошёлся форичем - по условию срезал лишних )

[hizel]

те не программист не пупа!
я правда тоже, давеча чутка оптимизировал свой скриптик,он стал на одинаковом объёме данных вместо пяти минут пару секунд отрабатывать

[ProFTP]

обошёлся форичем - по условию срезал лишних )

ты сделал уже или нет?

[Alex Keda]

сделал

[ProFTP]

форичем перебрать и каждый сравнить любой дурак может
тока сравнений может быть слишком много - порядка 500x200x200 - боюсь тут даже перл загнётся...

а ты пробовал оно долго будет?

1) данные отсортипрованные? отсортировать можешь?
можно бинарные поиск

2) http://www.opennet.ru/docs/RUS/perl_obz ... ntium.html

Код: Выделить всё

Обработка запросов

Суперпозиции могут так-же применяться для поиска строки в массиве строк. Например, чтобы определить, появляется ли данная строка $target в массиве строк @db:

               use Quantum::Superpositions BINARY => ["CORE::index"];

               $found = index(any(@db), $target) >= 0;

Определить, какая из строк базы данных содержат $target:

               sub contains_str {
                       if (index($dbstr, $target) >= 0) {
                               return $dbstr;
                       }
               }

               $found = contains_str(any(@db), $target);
               @matches = eigenstates $found;

Сравнение происходит гораздо быстрее, чем это умеет делать база данных, чтобы найти единственную строчку в любой из набора в базе.

               sub contains_targ {
                       if (index($dbstr, $target) >= 0) {
                               return $target;
                       }
               }

               $found = contains_targ($string, any(@targets));
               @matches = eigenstates $found;

Или в каждой одновременно

               $found = contains_targ($string, all(@targets));
               @matches = eigenstates $found;

3) посмотри тут _http://forum.vingrad.ru/forum/topic-250686/0.html

как мне его к этому прикрутить:

Код: Выделить всё

if ($user eq $list)

Код: Выделить всё

my %items = map {$_ => 1} @$arr;

[Alex Keda]

та не. всё красиво получилось в итоге, просто само составление списка надо выпрямить - там либо регулярку хитрую рисовать, либо ещё чего надо...