Forum Webscript.Ru

Программирование => Perl => Тема начата: от 23 Марта 2001, 10:28:57

Название: Регулярные выражения на Perl
Отправлено: от 23 Марта 2001, 10:28:57

Народ !!!
Я тут с регулярными выражениями в Perl\'e завис.
Есть строка, из нее надо выделить слова (убрать пробелы etc, оставить а-яА-Яa-zA-Z0-9).

Использую
@WorkArr = split(/[,._-\\s+]/, $word);

Но он не понимает если задано "слово1 - _ слово2".

И есть ли более универсальный способ ?

Название: Регулярные выражения на Perl
Отправлено: Chs от 23 Марта 2001, 14:01:25

Цитировать

@lexandr (23-03-2001 10:28):
Народ !!!
Я тут с регулярными выражениями в Perl\'e завис.
Есть строка, из нее надо выделить слова (убрать пробелы etc, оставить а-яА-Яa-zA-Z0-9).

Использую
@WorkArr = split(/[,._-\\s+]/, $word);

Но он не понимает если задано "слово1 - _ слово2".

И есть ли более универсальный способ ?

@WorkArr = split(/[,\\._\\-\\s]+/, $word);

Более универсальный -
m/([\\w\\d]+)/g и perldoc Locale. :))

Название: Регулярные выражения на Perl
Отправлено: от 23 Марта 2001, 15:26:13

use locale у меня вообще ни разу не срабатывало.

как сделать, чтобы \\W (и подобные фичи) реагировало на русские символы ?

Название: Регулярные выражения на Perl
Отправлено: Chs от 23 Марта 2001, 16:35:23

Цитировать

@lexandr (23-03-2001 15:26):
use locale у меня вообще ни разу не срабатывало.

как сделать, чтобы \\W (и подобные фичи) реагировало на русские символы ?

perldoc perllocale