ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  02 Feb 2001  15:25:15
 To : Alexey Wasilyev
 Subject : Re: chart.pm
 -------------------------------------------------------------------------------- 
 

 В твоём письме от Fri, 02 Feb 2001 11:44:56 +0300 написано:
 
 AW> Возможно ли в chart.pm добиться построения графиков с метками на русском
 AW> языке? Hасколько я понял, копать нужно в сторону GD.pm?
 
 Если в сторону GD.pm, то
 
 Как вставлять в изображения русский текст при пользовании библиотекой GD
 
 Для вставления кириллицы в изображения при помощи библиотеки GD следует
 использовать TrueType шрифты (TTF) в кодировке Unicode, содержащие кириллицу,
 и метод stringTTF (см. perldoc GD). Для получения кириллицы из такого шрифта
 необходимо перекодировать передаваемый методу stringTTF текст, подставив
 вместо символов кириллицы строчки вида '&#номер;', где номер - код Unicode
 данного символа. Hапример, для перекодирования можно использовать следующий
 код на Perl'е:
 
 use constant TRANSTABLE => {
         'ю'=>'ю', 'а'=>'а', 'б'=>'б',
         'ц'=>'ц', 'д'=>'д', 'е'=>'е',
         'ф'=>'ф', 'г'=>'г', 'х'=>'х',
         'и'=>'и', 'й'=>'й', 'к'=>'к',
         'л'=>'л', 'м'=>'м', 'н'=>'н',
         'о'=>'о', 'п'=>'п', 'я'=>'я',
         'р'=>'р', 'с'=>'с', 'т'=>'т',
         'у'=>'у', 'ж'=>'ж', 'в'=>'в',
         'ь'=>'ь', 'ы'=>'ы', 'з'=>'з',
         'ш'=>'ш', 'э'=>'э', 'щ'=>'щ',
         'ч'=>'ч', 'ъ'=>'ъ', 'Ю'=>'Ю',
         'А'=>'А', 'Б'=>'Б', 'Ц'=>'Ц',
         'Д'=>'Д', 'Е'=>'Е', 'Ф'=>'Ф',
         'Г'=>'Г', 'Х'=>'Х', 'И'=>'И',
         'Й'=>'Й', 'К'=>'К', 'Л'=>'Л',
         'М'=>'М', 'H'=>'Н', 'О'=>'О',
         'П'=>'П', 'Я'=>'Я', 'Р'=>'Р',
         'С'=>'С', 'Т'=>'Т', 'У'=>'У',
         'Ж'=>'Ж', 'В'=>'В', 'Ь'=>'Ь',
         'Ы'=>'Ы', 'З'=>'З', 'Ш'=>'Ш',
         'Э'=>'Э', 'Щ'=>'Щ', 'Ч'=>'Ч',
         'Ъ'=>'Ъ', '&'=>'&'
         };
 
 sub translate
 {
         my $str = shift;
         $str =~ s/(.)/(exists TRANSTABLE->{$1})? TRANSTABLE->{$1}: $1/eg;
         return $str;
 }
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- slrn/0.9.6.3-as (Linux)
  * Origin: AKA с подствольным плюсомётом (2:5020/371.32)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    chart.pm   Alexey Wasilyev   02 Feb 2001 12:44:56   Re: chart.pm   Artem Chuprina   02 Feb 2001 15:25:15   Re: chart.pm   Yuriy Kaminskiy   03 Feb 2001 19:16:11