[unix-ws] Postscript-Seitenzaehler?

[Thomas Lange]

Sicher geht es nur mit ghostscript, alles andere ist nicht immer
korrekt. Um das zu beschleunigen, kann man aber die Aufloesung
runtersetzen (z.B. -r2). Ich mache es wie folgt:

/vol/gnu/bin/gs -q -r$dpi -sPAPERSIZE=a4 -dNOPAUSE -sDEVICE=ljet4 -sOUTPUTFILE=/tmp/print_$$.pcl 

dann ein perl script starten, das simplex/duplex/manualfeed verarbeitet und
gleichzeitig die Seiten zaehlt:


$size = (stat $pclfile)[7];
open IN,"$pclfile" || die "Kann $pclfile nicht öffnen\n";
$re = sysread IN,$pcl,$size;
unlink $pclfile;
die "Fehler beim lesen von $pclfile\n" if ($re != $size);

$pages = 0;
while ($pcl =~ m/(?:\e&l0o0l0E.+?\e\*rB\cl)/sg) {
    $pages++;
}
open(LOG,">>$countfile");
print LOG "$user $pages\n";
close(LOG);



Im PCL Code zaehlt das pattern matching von Perl nun die Befehle fuer
neue Seite.



-- 
Gruss Thomas
----------------------------------------------------------------------
            Thomas Lange
Institut fuer Informatik         mailto:lange at informatik.Uni-Koeln.DE
   Universitaet zu Koeln
            Pohligstr. 1        Telefon: +49 221 470 5303
             50969 Koeln        Fax    : +49 221 470 5317
----------------------------------------------------------------------