1 2 3
open ($lpr, "| lpr") or die "Fehler beim Drucken: $!"; print $lpr "Das ist ein Text\n"; close $lpr or die "Fehler beim Drucken: $!";
2012-09-29T17:42:26 GwenDragonUnter Linux ist es einfach: eine Ausgabe an dasGerätProgramm lpr über eine Pipe.
lpoptions -o PrintoutMode=Draft
lpoptions -o PrintoutMode=Normal
kcmshell printmgr
http://localhost:631/
2012-09-29T18:19:24 hlubenowWer Ubuntu benutzt und hplip bekommt ein korrekt eingerichtetes Linux, das auch mit lpr läuft.Na ja, theoretisch einfach. Allerdings muß der Drucker dazu korrekt unter Linux eingerichtet sein. Was nicht immer ganz einfach ist.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/perl use strict; use warnings; use utf8; use DBI; use Encode; use Fcntl ':flock'; use FindBin '$Bin'; use Text::Table::Tiny; use File::Copy; use Date::Calc qw(Add_Delta_Days Today); binmode STDOUT, ":encoding(UTF-8)"; my $lpr; open ($lpr, "| lpr") or die "Fehler beim Drucken: $!"; print $lpr, "Das ist der Text, der nun gedruckt sein sollte... \n"; close $lpr or die or "Fehler beim Drucken: $!"; exit;
1
2
3
4
Useless use of string in void context at ./druckertest.pl line 19.
GLOB(0x9a7c38)Das ist der Text, der nun gedruckt sein sollte...
lpr: Fehler - stdin ist leer, somit wurde kein Auftrag gesendet.
Died at ./druckertest.pl line 19.
print $lpr "Das ist der Text, der nun gedruckt sein sollte... \n";
close $lpr or die "Fehler beim Drucken: $!";
2012-09-29T18:19:24 hlubenowkcmshell4 printers == Systemeinstellungen → Nicht zuzuordnen → DruckerHeute heißt das ein bißchen anders.
open ($lpr, "| lpr -P printer") or die "Fehler beim Drucken: $!";