| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
TT
Зарегистрирован: 24.02.2007
Сообщения: 4
|
 Добавлено: Сб Фев 24 2007 11:42 Заголовок сообщения: Perl. Помогите найти глюк |
 |
|
Привет всем. Помогите, а то у меня уже крыша едет и ни фига не соображает.
Вот кусок кода:
| Код: | 1 $seek_temp = "<p>первое<br>между первое<i>(второе) </i>третье</p>";
2 @title_words = ("первое", "(второе)", "третье");
3 foreach my $word (@title_words) {
4 $word = quotemeta($word);
5 $seek_temp =~ /$word/;
6 printf("\n%s EQ %s FIND: %s", $title_words[$#title_words], $word, $&);
7 if ($title_words[$#title_words] eq $word) {
8 $after = substr($', 0, 50);
9 } else {
10 $seek_temp = $';
11 }
12 ($before) && ($between .= "->$`");
13 (!$before) && ($before = substr($`, -0, 50));
14 } |
Вот что выводит printf:
| Код: | третье EQ \п\е\р\в\о\е FIND: первое
третье EQ \(\в\т\о\р\о\е\) FIND: (второе)
\т\р\е\т\ь\е EQ \т\р\е\т\ь\е FIND: третье |
Кто-нить сможет объяснить почему на третьей итерации содержимое массива эскейпится?
Проблема убирается если закомментировать 4-ю строку.
Заранее пасиб |
|
| Вернуться к началу |
|
 |
TT
Зарегистрирован: 24.02.2007
Сообщения: 4
|
| Добавлено: Сб Фев 24 2007 14:32 Заголовок сообщения: Решил, но не могу объяснить |
|
|
Нашел!!!
Вводим переменную:
4 my $dword = quotemeta($word);
5 $seek_temp =~ /$dword/;
6 printf("\n%s EQ %s \t\tFIND:%s", $title_words[$#title_words], $dword, $&);
7-ю строку оставляем без изменений!!! ($word не заменяем на $dword)
Как я раньше этого не заметил...
Очень странно, что "eq" так себя ведет (..на нее грешу...).
Если кто сможет объяснить, буду признателен.
 |
|
| Вернуться к началу |
|
|
TT
Зарегистрирован: 24.02.2007
Сообщения: 4
|
| Добавлено: Пн Фев 26 2007 10:15 Заголовок сообщения: |
|
|
| Весь сыр-бор из-за неправильного использования переменной цикла. НЕЛЬЗЯ ничего ей присваивать. Стыдно... мне. Никогда так не делайте. |
|
| Вернуться к началу |
|
|
Jail
Зарегистрирован: 16.01.2007
Сообщения: 180
Откуда: Russia
|
| Добавлено: Вс Мар 04 2007 11:28 Заголовок сообщения: |
|
|
Спасибо за коментарий, но я лично...и это моё только мнение....использовал Perl, а потом открыл для себя Python!!!!! Больше я не работаю с Perl !!!!!!!!  |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
