|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : denis v. yastrebov 2:5020/400 30 Jun 2003 01:48:19
To : Alexandr Boydak
Subject : Re: White Space
--------------------------------------------------------------------------------
Alexandr
You wrote to All on Fri, 20 Jun 2003 12:44:32 +0400:
[съела моль]
AB> надо обеспечить анализ строки, уборку пробела
AB> между инициалами,
[съела моль]
Оффтопик конечно, но никак не могу взять в голову,
откуда пошла мода убирать пробелы в инициалах?
Сколько видел книг советских времен всегда было
только с пробелами и никак иначе (если, правда, не
учитывать, что понятия пробела тогда в полиграфии
не существовало).
Кстати Вам, уважаемый г-н полиграфист, сообщаю,
что книги, в которых имена указываются подобным
образом я не покупаю.
Hу и вот Вам рецепт.
===CODE=======================
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, "Russian_Russia.1251"); # Это моя платформа, свою
укажите сами
$str = "В. В. Пупкин";
print "Original: ".$str."\n";
$str =~ s/(\w.)\s*(\w.)\s*(\w+)/$1~$2~$3/; # пробелы все-таки надо
ставить!!!
print "Substituted: ".$str;
===CODE END===================
----
denis v. yastrebov
denisy@psychiatrist.ru
http://www.psychiatrist.ru
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: White Space 
