- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3911 [639]
От : Melekhov Alexandre A. 2:5020/400 23 июня 04, 14:25
Кому : Melekhov Alexandre A. 24 июня 04, 00:03
Тема : Re: PDF::Create
-------------------------------------------------------------------------------
From: "Melekhov Alexandre A."
Hello!
On Tue, 22 Jun 2004 16:40:15 +0000 (UTC) "Melekhov Alexandre A."
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)