|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 10 Apr 2003 11:16:54
To : Valery Shishkov
Subject : Re: Help: печать русских букв с TTF
--------------------------------------------------------------------------------
Здравствуй, Valery Shishkov.
VS>>> Да хрен с этим CUPS'ом -- ты лучше скажи, где сие чудо брать?! :))
VW>> "Чудо" для Berkeley LPD Артем Чуприна уже публиковал.
VS> Давно? Мне точно не попадался... :((
Hедавно.
==== 8< [univps2up] ====
#!/usr/bin/perl
use IO::Handle;
my $in_header = 1;
my $header = '';
my ($width,$height) = (595,842);
my $psnup;
while (<>) {
unless (/^%[!%]/) {
$in_header = 0;
}
if ($in_header) {
if (/^%%BoundingBox:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
$width = $3 + $1;
$height = $4 + $2;
$header .= "%%BoundingBox: 0 0 595 842\n";
} else {
$header .= $_;
}
} else {
if (!$psnup) {
$psnup = new IO::Handle or die $!;
open($psnup,"| psnup -q -W$width -H$height -pa4 -2") or die $!;
print $psnup $header or die $!;
}
print $psnup $_ or die $!;
}
}
==== >8 [univps2up] ====
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev4
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
