Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
Как поменять набор букв на другой набор букв?
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: Как поменять набор букв на другой набор букв? (Прочитано 3121 раз)
0 Пользователей и 1 Гость просматривают эту тему.
chouck
Заглянувший
Новичок
Сообщений: 8
+0/-0
0
Как поменять набор букв на другой набор букв?
«
:
18 Апреля 2001, 11:36:54 »
Как поменять набор букв на другой набор букв? Причем некоторые буквы надо преобразовать одну буквы в две(например при перекодировке Win->Latinica \'Ч\' -> \'СH\'...) .
Вот как мне кажется что-то похожее , но оно не работает так как надо.
$cur =~ tr/абвгдежзийклмнопрстуфхцчшщьыъэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ/abvgde(zh)zijklmnoprstufxc[ch][sh][sh]\'y\'[e\'][yu][ya]ABVGDE[ZH]ZIJKLMNOPRSTUFXC[CH][SH][SH]\'Y\'[E\'][YU][YA]/;
Записан
AliMamed
\\o/ ali akbar \\o/
Глобальный модератор
Ветеран
Сообщений: 2409
+2/-0
2
Как поменять набор букв на другой набор букв?
«
Ответ #1 :
18 Апреля 2001, 12:05:11 »
я сделал через массивы
Записан
ну, будем исповедоваться?
chouck
Заглянувший
Новичок
Сообщений: 8
+0/-0
0
Как поменять набор букв на другой набор букв?
«
Ответ #2 :
18 Апреля 2001, 12:09:47 »
Цитировать
AliMamed (18-04-2001 12:05):
я сделал через массивы
Как (пример)?
Записан
AliMamed
\\o/ ali akbar \\o/
Глобальный модератор
Ветеран
Сообщений: 2409
+2/-0
2
Как поменять набор букв на другой набор букв?
«
Ответ #3 :
18 Апреля 2001, 12:32:53 »
$stroka="321";
@search=("1", "2","3");
@replace=("01","02","03");
for($i=0;$i<3;$i++){
$stroka=~ s/$search[$i]/$replace[$i]/g;
}
#stroka получится "030201"
Записан
ну, будем исповедоваться?
chouck
Заглянувший
Новичок
Сообщений: 8
+0/-0
0
Как поменять набор букв на другой набор букв?
«
Ответ #4 :
18 Апреля 2001, 14:45:14 »
$cur =~ tr/БВЧЗДЕЪЙКЛМНОПРТУФХЖИГШЩЯЬбвчздеъйклмнопртуфхжигшщяь/abvgdezijklmnoprstufxc\'y\'eABVGDEZIJKLMNOPRSTUFXC\'Y\'E/;
$cur =~ s{Ц}{zh}g;
$cur =~ s{ц}{ZH}g;
$cur =~ s{Ы}{sh}g;
$cur =~ s{ы}{SH}g;
$cur =~ s{Э}{sh}g;
$cur =~ s{э}{SH}g;
$cur =~ s{Ю}{ch}g;
$cur =~ s{ю}{CH}g;
$cur =~ s{С}{ya}g;
$cur =~ s{с}{YA}g;
$cur =~ s{А}{yu}g;
$cur =~ s{а}{YU}g;
$cur =~ s{б}{yu}g;
$cur =~ s{Б}{YU}g;
Записан
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
Как поменять набор букв на другой набор букв?
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28