forum.lissyara.su

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

if ($user eq $list)

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

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

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

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

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

if ($user eq $list)

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

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

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

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

Суперпозиции могут так-же применяться для поиска строки в массиве строк. Например, чтобы определить, появляется ли данная строка $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;

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

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