ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - как не трогать то что в скобках?
8 сообщений из 8, страница 1 из 1
Perl regexp - как не трогать то что в скобках?
    #39546765
Cane Cat Fisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cane Cat Fisher
Участник
Есть строка вида:

Русские 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, 15:11
| Ответить | Цитировать | Написать  
Perl regexp - как не трогать то что в скобках?
    #39546842
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkle
Участник
(не проверял) Попробуйте добавить внутри (или извне?) скобок \b - граница слова.
...
Рейтинг: 0 / 0
02.11.2017, 17:03
| Ответить | Цитировать | Написать  
Perl regexp - как не трогать то что в скобках?
    #39547211
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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;
}
...
Рейтинг: 0 / 0
03.11.2017, 10:29
| Ответить | Цитировать | Написать  
Perl regexp - как не трогать то что в скобках?
    #39547386
Cane Cat Fisher
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cane Cat Fisher
Участник
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:24
| Ответить | Цитировать | Написать  
Perl regexp - как не трогать то что в скобках?
    #39547407
Фотография volodin661
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volodin661
Участник
Cane Cat FisherНе получается.
Обрамляет все вместе с транскрипцией:
А мне надо окружить только English, а транскрипцию в квадратных скобках оставить в покое.

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

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


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

Код: perl
1.
s {\b ([a-z]+) \b} {<span class='eng'>$1</span>}mgsix
...
Рейтинг: 0 / 0
03.11.2017, 17:53
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl regexp - как не трогать то что в скобках?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=23&fpage=29&tid=1460466]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 23ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 295ms
total:  401ms
созд. / загр.: 401ms
x
x
Закрыть


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