|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Lomov 2:5020/400 11 Mar 2007 14:06:05
To : All
Subject : Поиск и замена с русскими буквами
--------------------------------------------------------------------------------
Добрый день!
Может кто может помочь, а то уже своих идей не
хватает.
Проблема: нужно в тексте в котором есть как
латинские, так и русские буквы заменить лишние
пробелы между словами на один пробел. Пример:
This sentence is a sample. You may create your
own samples .
Why I need these ugly texts? To compact some
e-books taken from lib.ru.
Это предложение просто пример. Вы можете
придумать свои собственные примеры . Зачем нунеж
такие уродливые предложения ? Чтобы сжать
некоторые книжки, взятые с lib.ru
Чтобы сжать текст использую такую конструкцию:
s/([-,\.!\?"'>]|[a-zA-Z])[[:space:]]{2,}([-,\.!\?"'<]|[a-zA-Z])/$1
$2/go;
s/([-,\.!\?"'>]|[а-яА-Я])[[:space:]]{2,}([-,\.!\?"'<]|[а-яА-Я])/$1
$2/go;
Сжать английский текст удаётся без проблем, но вот
русский ни как.
Текст набран в кодировки koi8-r, локаль
ru_RU.KOI8-R (работаю в Linux). Использую две
директивы 'use':
use strict;
use locale;
Подскажите что не так, или посоветуйте
какой-нибудь другой способ сжатия лишних пробелов
между словами.
--
Best regards, Vladimir Lomov
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
