PS-Druck: Name auf jedem Blatt?
Ich suche ein Programm, das beim Ausdruck von PS auf jede Seite noch den Namen der Datei mit draufsetzt. Ein wenig so wie a2ps das mit ASCII Dateien macht. Iregendein Vorschlag? Salut, Bastien ------------------------------------------------------------------------------- Dipl.-Inform. Med. Bastien Chevreux -- b.chevreux@dkfz-heidelberg.de Deutsches Krebsforschungszentrum Heidelberg -- Abteilung Molekulare Biophysik Im Neuenheimer Feld 280 -- 69120 Heidelberg -- Phone: +49 6221 42 2336 ------------------------------------------------------------------------------- -It's mine. =Nope, it's my one. *CRASH* =Alright. It WAS yours. -- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux
On Fri, 27 Nov 1998, Bastien Chevreux wrote:
Ich suche ein Programm, das beim Ausdruck von PS auf jede Seite noch den Namen der Datei mit draufsetzt. Ein wenig so wie a2ps das mit ASCII Dateien macht.
Iregendein Vorschlag?
Perl zusammen mit etwas Postscript ;-) PS-Teil:
Salut, Bastien
------------------------------------------------------------------------------- Dipl.-Inform. Med. Bastien Chevreux -- b.chevreux@dkfz-heidelberg.de Deutsches Krebsforschungszentrum Heidelberg -- Abteilung Molekulare Biophysik Im Neuenheimer Feld 280 -- 69120 Heidelberg -- Phone: +49 6221 42 2336 ------------------------------------------------------------------------------- -It's mine. =Nope, it's my one. *CRASH* =Alright. It WAS yours.
-- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux
Axel Franke Combustion Physics Lund Institute of Technology / Sweden Phone +46-46-22-20353 Fax +46-46-22-24542 -- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux
On Sat, 28 Nov 1998 axel@callisto.forbrf.lth.se wrote:
Ich suche ein Programm, das beim Ausdruck von PS auf jede Seite noch den Namen der Datei mit draufsetzt. Ein wenig so wie a2ps das mit ASCII Dateien macht. Iregendein Vorschlag? Perl zusammen mit etwas Postscript ;-) PS-Teil:
Na, etwas ausfuehrlicher haette der PS-Teil schon ausfallen koennen. Aber mittlerweile habe ich den mit etwas Hilfe zusammenbekommen. Per Hand eingesetzt klappt das schon ganz gut. Jetzt fehlt nur noch das Perl Skript. Mist, nun muss ich wirklich Perl lernen :) Salut, Bastien ------------------------------------------------------------------------------- Dipl.-Inform. Med. Bastien Chevreux -- b.chevreux@dkfz-heidelberg.de Deutsches Krebsforschungszentrum Heidelberg -- Abteilung Molekulare Biophysik Im Neuenheimer Feld 280 -- 69120 Heidelberg -- Phone: +49 6221 42 2336 ------------------------------------------------------------------------------- -It's mine. =Nope, it's my one. *CRASH* =Alright. It WAS yours. -- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux
Hallo Bastien, zuerst einmal möchte ich mich entschuldigen. Ich war auf dem Ctrl-X gelandet (pine) ... On Sun, 29 Nov 1998, Bastien Chevreux wrote:
Na, etwas ausfuehrlicher haette der PS-Teil schon ausfallen koennen. Aber mittlerweile habe ich den mit etwas Hilfe zusammenbekommen. Per Hand eingesetzt klappt das schon ganz gut. Jetzt fehlt nur noch das Perl Skript. War auch noch nicht fertig ... ist mir leider etwas zu früh ins Netz gerutscht. Also, für den PS-Teil: x y moveto /Times-Roman findfont 10 scalefont setfont ($filename) show 0as ist mein Vorschlag - es findet sich eine sehr gute PS-Anleitung in LinuxFocus, May1998 (<A HREF="http://www.linuxfocus.org"><A HREF="http://www.linuxfocus.org</A">http://www.linuxfocus.org</A</A>>).
Mist, nun muss ich wirklich Perl lernen :) Es lohnt sich!!! Das Perlscript: #!/usr/bin/perl # nimmt zwei argumente - infile und outfile , bzw nur infile, dann outfile # stdout, oder nix => filter
$infilename=$ARGV[0]; $infilename='-' unless $infilename; open INFILE,$infilename or die "Unable to open $infilename"; $outfilename=$ARGV[0]; $outfilename='-' unless $outfilename; open OUTFILE,$outfilename or die "Unable to open $outfilename"; $infilename='<STDIN>' if $infilename=~/^-$/; while(<INFILE>) { print OUTFILE $_ if /^%/; next if /^%/; print OUTFILE "400 800 moveto /Times-Roman findfont 10 scalefont setfont ($filename) show\n$_"; last; } while(<INFILE>) { print OUTFILE $_; } Eventuell musst du noch an den Positionen etwas herumfeilen - aber im Großen und Ganzen sollte es wohl so laufen. Geht sicher auch noch zu beschleunigen. Viel Erfolg! Axel Axel Franke Combustion Physics Lund Institute of Technology / Sweden Phone +46-46-22-20353 Fax +46-46-22-24542 -- Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@suse.com schicken, mit dem Text: unsubscribe suse-linux
participants (2)
-
axel＠callisto.forbrf.lth.se -
B.Chevreux＠dkfz-heidelberg.de