ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Y. Zinyakov                    2:5065/21      13 Nov 2000  14:28:04
 To : Misha Yuriev
 Subject : массивы
 -------------------------------------------------------------------------------- 
 

 
 12 Nov 00 21:16, I wrote to you:
 
  MZ> my %hash;
  MZ> $hash{$string}++;
  MZ> for (@array){$hash{$_}++};
  MZ> print "соответствий не найдено" if (keys %hash != scalar @array);
 
  MZ> (не проверял, но должно работать)
  MZ> выйгрыш во времени/скорости получается небольшим. разумеется, для
  MZ> повторного использования хеша, его нужно будет сначала undef.
 
 небольшая поправка - пример не совсем удачен, так как массив может содержать
 одинаковые элементы.
 в новом варианте это все будет выглядеть так:
 
 my %hash;
 for (@array){$hash{$_}++};
 print "соответствий не найдено" if (!(defined $hash{$string}));
 
 так даже красивше получилось  :)
 
 Удачи!
 *Maqs.* [max@surt.sochi.ru]
 
 --- GoldED/LNX 3.0.1
  * Origin: WARNING! System paused: waiting for the miracle... (2:5065/21)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор