|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1004216a3821.html, оценка из 5, голосов 10
|