VPF::регулярное выражение - Форум программистов

DEER

Дата 14.12.2005, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

Здравствуйте,
у меня есть два хеша, надо найти количество совпадений ключей
пытаюсь так

Код


    foreach my $key (keys %hash1)
    {
       if(map /^$key?/, %hash2)
       {
              #нашли совпадение
              $count += 1;
            }
   }

так вот, если в hash1 будет ключ "суд", а в sash2 "гоСУДарство", то он считает, что это совпадение, я вроде указал, что $key должен быть началом и концом строки, но что то не работает.

Не знаете почему?

--------------------

BlackLFL

Дата 14.12.2005, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 8
Всего: 12

if(map /^$key$/, %hash2)

DEER

Дата 14.12.2005, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

спасибо

--------------------

Kannabismus

Дата 14.12.2005, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Тим Тоуди

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 20.11.2005

Репутация: 1
Всего: 2

То, что вы делаете, это проверяете совпадения ключей %hash1 с ключями и значениями %hash2. Если нужно считать совпадения ключей:

Код


foreach my $key (keys %hash1)
{
   if(exists $hash2{$key})
      {
         $count += 1;
      }
}

или короткий вариант с использованием map

Код


map {$count++ if exists $hash2{$_}} keys %hash1

DEER

Дата 15.12.2005, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

ещё один косяк

Код


my @arr = qw(интернет, интернет магазин, через интернет, спутниковый интернет, интернет одежда, интернет работа, интернет магазины одежды, интернет провайдеры, интернет игры, интернет радио, бесплатный интернет, подключение интернета, интернет библиотека, интернет программы, интернет кафе, интернет москва, интернет скачать, интернет заработок, интернет сайт, интернет сети, интернет реклама, интернет телефон, интернет книги, интернет доступ, настройка интернет, заработать интернет, детские интернет, создание интернета, интернет казино, детские интернет магазины, книжные интернет, интернет техники, книжный интернет магазин, интернет карты, интернет магазины техники, скорость интернета, косметика интернет, мобильный интернет, интернет магазин косметики, интернет аптеки, интернет реферат, продажа интернет, женский интернет, интернет обувь, интернет товары, выделенный интернет, телевидение интернет, петербург интернет, интернет магазин обуви, интернет магазин женской);

  if(map  /[Copyright|Яндекс|Ключевые|Статистика|Показов]/, @arr )
  {

    print map  /[Copyright|Яндекс|Ключевые|Статистика|Показов]/, @arr;
    print "ДА!!!!";
}

выводит
ДА!!!!

это что получается? он находит эти слова что ли?
Добавлено @ 11:33
всё, понял.
почему то ему [] не понравились

--------------------

Kiber_rat

Дата 15.12.2005, 15:59 (ссылка)

(нет голосов)

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

Репутация: 7
Всего: 9

Ты просто ошибся в регулярном выражении, используй (?: ) вместо [ ].

Код

my @arr = ('интернет','интернет магазин','через интернет',
    'спутниковый интернет','интернет одежда','интернет работа',
    'интернет магазины одежды','интернет провайдеры','интернет игры',
    'интернет радио','бесплатный интернет','подключение интернета',
    'интернет библиотека','интернет программы','интернет кафе',
    'интернет москва','интернет скачать','интернет заработок',
    'интернет сайт','интернет сети','интернет реклама','интернет телефон',
    'интернет книги','интернет доступ','настройка интернет',
    'заработать интернет','детские интернет','создание интернета',
    'интернет казино','детские интернет магазины','книжные интернет',
    'интернет техники','книжный интернет магазин','интернет карты',
    'интернет магазины техники','скорость интернета','косметика интернет',
    'мобильный интернет','интернет магазин косметики','интернет аптеки',
    'интернет реферат','продажа интернет','женский интернет',
    'интернет обувь','интернет товары','выделенный интернет',
    'телевидение интернет','петербург интернет','интернет магазин обуви',
    'интернет магазин женской');
/(?:Copyright|Яндекс|Ключевые|Статистика|Показов)/ ? print "Find: $&\n" : next
    for @arr;
}

$& - текст совпадения (если найдено).

--------------------

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »