|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Koteroff 2:5020/400 10 Jun 2002 21:53:02
To : Andrew Kulinich
Subject : Re: Поменять регистр буковок...
--------------------------------------------------------------------------------
Здравствуйте, Andrew.
07 июня 2002 года, пятница, 02:49. Вы написали:
> А можно как-то это обойти, если нет доступа к локали? То есть
> всякие-разные буржуйские хостинги etc?
my $Upper="АБВГДЕЁЖЗИЙКЛМHОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ";
my $Lower="абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz";
my $fLC = eval("sub { \$_[0]=~tr/$Upper/$Lower/ }");
my $fUC = eval("sub { \$_[0]=~tr/$Lower/$Upper/ }");
# string Lc(string $st)
# Переводит строку в нижний регистр
sub Lc($) { my $st=$_[0]; &$fLC($st); return $st; }
# string Uc(string $st)
# Переводит строку в верхний регистр
sub Uc($) { my $st=$_[0]; &$fUC($st); return $st; }
--
С уважением,
Дмитрий Котеров (dk@dklab.ru), ведущий программист.
Лаборатория dk, http://www.dklab.ru
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
