Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Melekhov Alexandre A.                2:5020/400     23 Jun 2004  14:25:15
 To : Melekhov Alexandre A.
 Subject : Re: PDF::Create
 -------------------------------------------------------------------------------- 
 
 
 Hello!
 
 On Tue, 22 Jun 2004 16:40:15 +0000 (UTC) "Melekhov Alexandre A."
 <amel@df.ru> wrote about "PDF::Create":
 
 > 
 > Доброго времени суток!
 > 
 > Кто-нибудь из присутствующих здесь учил русскому языку сабж?
 
 И вот что интересно:
 
 #!/usr/bin/perl -w
 
 use strict;
 use PDF::Create;
 use Convert::Cyrillic;
 
 my $pdf = new PDF::Create('filename' => 'proba.pdf',
 'Version' => 1.2,
 'PageMode' => 'UseOutlines',
 'Author' => 'S.N.',
 'Title' => 'Proba',
  );
 my $root = $pdf->new_page('MediaBox' => [ 0, 0, 612, 792 ]);
 my $page = $root->new_page;
 my $f1 = $pdf->font('Subtype' => 'Type1',
 'Encoding' => 'WinAnsiEncoding',
 'BaseFont' => 'Courier');
 
 my $Src = 'koi8';
 my $Dst = 'win';
 my $SrcBuf = 'таки шолом, товарищи бояре';
 my $DstBuf = Convert::Cyrillic::cstocs ($Src, $Dst, $SrcBuf);
 
 $page->stringc($f1, 20, 300, 300, $DstBuf);
 $pdf->close;
 
 proba.pdf генерится и в нем vi-ем можно прочитать то, во что конвертится $Src,
 т.е. в pdf'ке есть строка из русских букв, в данном случае в 1251 и она
 корректно перекодируется iconv'м.
 Hо, черт возьми, при просмотре _любым_ pdf-ридером, русский есть, и не
 перекодированный koi8->win, как бывает при просмотре некорректно написанных
 страниц. Смотреть пробовал из-под виндов (разных)  и разными читалками
 (акробатом, xpdf, gv) - нифига.
 
 Остатки мозгов уже закипают... Может зря я не хочу ставить *ttf? :)
 
 --
 ===========================
 Best regards, SKYDIVER-RIPN
 amel@df.ru
 --- ifmail v.2.15dev5.3
  * Origin: SomeWhereInInternet (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 Re: PDF::Create   Melekhov Alexandre A.   23 Jun 2004 14:25:15 
 Re: PDF::Create   Artem Chuprina   23 Jun 2004 22:34:32 
Архивное /ru.perl/1004216a3821.html, оценка 3 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional