Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - как не трогать то что в скобках? / 8 сообщений из 8, страница 1 из 1
02.11.2017, 15:11
    #39546765
Cane Cat Fisher
Cane Cat Fisher
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
Есть строка вида:

Русские English ЕщеРусские AnotherEnglish

Последовательность латинских букв нужно окружить тегами с классом. Делаю просто:

Код: php
1.
$s =~ s/([a-z]+)/<span class='eng'>$1<\/span>/gi;



Но теперь оказалось, что в строке может быть еще и транскрипция:

Русские English ['ɪŋglɪʃ]

В квадратных скобках среди спецсимволов транскрипции тоже встречаются латинские буквы, но их трогать не нужно.

Как объяснить регекспу [a-z]+, чтобы он не трогал букв в квадратных скобках?

Если существенно - все это perl 5.22, используется use utf8;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2017, 17:03
    #39546842
vkle
vkle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
(не проверял) Попробуйте добавить внутри (или извне?) скобок \b - граница слова.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 10:29
    #39547211
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
Код: perl
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
use utf8;
use open ':locale'; 

# назовём последовательностью англ. символов англ.букву и далее последовательность любых символов кроме кириллических
my $rx_eng = qr / \p{Latin} [^\p{Cyrillic}]+ /x;

while( <> ) {
    s ~ ($rx_eng) ~<span class='eng'>$1</span>~mgsix;
    print;
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 13:24
    #39547386
Cane Cat Fisher
Cane Cat Fisher
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
volodin661
Код: perl
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
use utf8;
use open ':locale'; 

# назовём последовательностью англ. символов англ.букву и далее последовательность любых символов кроме кириллических
my $rx_eng = qr / \p{Latin} [^\p{Cyrillic}]+ /x;

while( <> ) {
    s ~ ($rx_eng) ~<span class='eng'>$1</span>~mgsix;
    print;
}



Не получается.

Код: php
1.
my $s = 'Русские English [&#618;&#331;gl&#618;&#643;]';



Обрамляет все вместе с транскрипцией:

Код: html
1.
Русские <span class='eng'>English [&#618;&#331;gl&#618;&#643;]</span>




А мне надо окружить только English, а транскрипцию в квадратных скобках оставить в покое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 13:45
    #39547407
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
Cane Cat FisherНе получается.
Обрамляет все вместе с транскрипцией:
А мне надо окружить только English, а транскрипцию в квадратных скобках оставить в покое.

да понял я, разумеется, что именно надо обрамлять,
а не получается из-за PerlIO layer;
у меня-то locale на UTF-8 настроена, а у тебя, стало быть, нет.

Для проверки запусти так
Код: php
1.
perl -C255 thisscript.pl


и убедишься
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 13:52
    #39547409
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
тьфу, сорри, не прочитал до конца.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 14:57
    #39547478
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
смотрится так себе, но должно работать:
Код: perl
1.
s ~ (\[ [^\]]+ \]) | ([a-z]+) ~ $2 ? "<span class='eng'>$2</span>" : $1 ~mgsixe
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2017, 17:53
    #39547593
volodin661
volodin661
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl regexp - как не трогать то что в скобках?
но если уверен, что внутри транскрипции пробелов нет,
тогда можно так, как предложил vkle

Код: perl
1.
s {\b ([a-z]+) \b} {<span class='eng'>$1</span>}mgsix
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - как не трогать то что в скобках? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]