Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> сравнение стрингов 
V
    Опции темы
StargazerV
Дата 12.4.2010, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Наверное глупый вопрос, но сам ответа пока не нашел.

Нужно сравнить 2 стринга на наличие одного, как часть другого. Элементарным сравнение будет $string1 =~ $string2.
Вопрос заключается в том, как сравнить 2 стринга, не принимая во внимание определенные знаки.
Пример:
Код

$string1 = "hello world";
$string2 = "llo wor{";

в данном случае, нужно игнорировать разнуци в знаке "{". Единственное, к чему пришел сам, это сделать вспомогательную пременную, которая будет содержать второй стринг, но уже без лишних знаков.
Код

$string1 = "hello world";
$string2 = "llo wor{";

$temp = $string2;
$temp =~ s/{//;

if($string1 =~ $temp)
.
.
.


это в принципе решает задачу, но вопрос в том, можно ли то же, сделать каким-то образом по средствам perl. почему-то кажется, что это решаемо через regular expression, но вот как, не нашел.


Это сообщение отредактировал(а) StargazerV - 12.4.2010, 20:37
PM MAIL   Вверх
Pfailed
Дата 12.4.2010, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 39



Код

$string1 =~ /llo wor{{0}/




--------------------
PM MAIL   Вверх
arto
Дата 12.4.2010, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



perldoc Text::Levenshtein
PM MAIL ICQ   Вверх
StargazerV
Дата 12.4.2010, 22:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Pfailed @  12.4.2010,  21:16 Найти цитируемый пост)
код Perl

Код

$string1 =~ /llo wor{{0}/




Спасибо, очень помогло! smile 



Цитата(arto @  12.4.2010,  21:48 Найти цитируемый пост)
perldoc Text::Levenshtein 


не совсем понял то направление, на который это указывает, но почитаю. Спасибо.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0723 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.