|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 02 Oct 2001 23:18:31
To : All
Subject : escape-последовательности
--------------------------------------------------------------------------------
Привет всем!!
„”‰–-fi‰ц’“”
знаю, что это буквы (в случае глюков с талк-ру нужная строчка внизу)
† - это буква В
Пишу прожку, которая ескейп-последовательности переделаывает в русские буквы:
#!/usr/bin/perl
use CGI 'param';
$words=param('word');
$html=param('html');
if($html ne 'ok'){
вывод формы, если просто обращение к скрипту
}
if($html eq 'ok'){
$words=~s!&(.*?);!&escape("&$1;")!ige;
}
sub escape {
my $test = $_[0];
my %hash = (
map{"&#".$_.";"=>chr($_+59)}(134..170)
"À" => chr(192),
"Á" => chr(193),
"Â" => chr(194),
"Ã" => chr(195),
...
и т.д. все руcские заглавные и не заглавные буквы
...
);
$bukva = $hash{$test};
return $char;
}
строчкой
map{"&#".$_.";"=>chr($_+59)}(134..170)
я хочу превратить
„ например в chr(194) и так далее. Разница между числами в „ и
chr(194)
134..170 - число букв в алфавите.
Правильно ли такой программой переделать
„”‰–-fi‰ц’“”
в chr(194) chr(195) и т.д.
Короче, как переделать „”‰–-fi‰ц’“”
в русские буквы(знаю, что они все заглавные).
Короче, если
"À" => chr(192), - А
"Á" => chr(193), - Б
"Â" => chr(194), - В
"Ã" => chr(195), - Г
то думаю, что и
… - A
† - Б
‡ - В
ˆ - Г
соответственно.
Исходня задача,я умею плагином фотошопа получать из пдф текст, но русский
текст
получается в виде ескейп-последовательностей, причем от этого плагина все
заглавные буквы получаются вида &#(\d\d\d); Что есть нехорошо. Конечно, я могу
имея пдф, и текст, набрать 36 букв и заполнить хеш вручную. Hо, это бы
автоматизировать.
Спасибо!
--
TEAM [Маньяки]
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
