VPF::Регулярка - Форум программистов

n0xi0uzz

Дата 19.3.2006, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

В общем, в строке надо обрезать все, кроме пробелов и слов, состоящих из цифр и букв (русских и латинских, строчных и прописных). Подскажите, пожалуйста, регулярное выражение. Спасибо.

Это сообщение отредактировал(а) n0xi0uzz - 19.3.2006, 20:00

tishaishii

Дата 19.3.2006, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Создатель

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

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

Код

use locale;
$s=~s{[^\w\s]}{}gs;

nitr

Дата 19.3.2006, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Код


use locale;
$str =~ s/[^\w\s]//smg;

Добавлено @ 20:52
млин, повторился smile

Это сообщение отредактировал(а) nitr - 19.3.2006, 20:51

--------------------

I love ArchLinux

BlackLFL

Дата 19.3.2006, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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

если не получится, то добавьте к примеру tishaishii, вместо use locale;

Код


use locale; use POSIX qw(locale_h); setlocale(LC_CTYPE,"ru_RU.CP1251");

nitr

Дата 19.3.2006, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

хотя бы пример приведу ;)

Код


#!/usr/bin/perl -w
use locale;

while(<DATA>) {
  $line .= $_;
}
$line =~ s/[^\w\s]//smg;
print $line;

__END__
что-@@то т"акое;%# -
можно $2c34an u56se local
perlперл

--------------------

I love ArchLinux

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