Text aus Perlprogramm an lokalen Drucker? (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-05-13 02:45:23
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
10 guests

[thread]17794[/thread]

submit to reddit

Text aus Perlprogramm an lokalen Drucker? [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 26

Articles: hide open all | hide show old branches

+19 replies
geloescht

2012-09-29 18:58

User since
2012-06-19
141 articles
BenutzerIn

Hallihallo Forumsgemeinde,

Ist es möglich, von einem Perlprogramm aus, Text an einen lokalen Drucker zu senden?

System:
Linux Ubuntu 9.04 Jounty Jakalope
Gesamte Hardware ist HP
Drucker ist HP Photodmart C4780
Installiert ist hplibs oder wie des heisst
Der Drucker ist auf dem System installiert und funktioniert ordnungsgemäß.

Wie gehe ich systematisch vor? Was benötige ich? Ist es kompliziert? Wo finde ich Informationen zu dem Thema?

Gruss HP-User
Last edited: 2012-09-29 18:59:10 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +18 replies
- GwenDragon
  
  2012-09-29 19:42
  User since
  2005-01-17
  14837 articles
  Admin1
  Unter Linux ist es einfach: eine Ausgabe an das ~~Gerät~~ Programm lpr über eine Pipe.
  
  Code (perl): (dl )
  
  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: $!";
  
  //EDIT: Hinweis für CUPS
  lpr druckt an den Standarddrucker.
  
  Siehe auch für CUPS:
  http://www.cups.org/documentation.php/options.html
  Last edited: 2012-09-29 20:06:25 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - hlubenow
    
    2012-09-29 20:19
    User since
    2009-02-22
    877 articles
    BenutzerIn
    
    2012-09-29T17:42:26 GwenDragon
    Unter Linux ist es einfach: eine Ausgabe an das ~~Gerät~~ Programm lpr über eine Pipe.
    
    Na ja, theoretisch einfach. Allerdings muß der Drucker dazu korrekt unter Linux eingerichtet sein. Was nicht immer ganz einfach ist.
    "lpq" gibt ein bißchen Auskunft. Mit "lpoptions" kann man ein paar Sachen einstellen, z.B. geht bei mir
    
    Code: (dl )
    
    lpoptions -o PrintoutMode=Draft
    
    und
    
    Code: (dl )
    
    lpoptions -o PrintoutMode=Normal
    
    Ansonsten gibt es (leider) mehrere Konfigurationstools. Unter SuSE 10.0 konnte ich das von KDE mit
    
    Code: (dl )
    
    kcmshell printmgr
    
    aufrufen. Heute heißt das ein bißchen anders. Manchmal steht der Drucker, dann muß man ihn da mit "Drucker starten" aktivieren, sonst läuft gar nichts. Mit dem Tool im Browser unter
    
    Code: (dl )
    
    http://localhost:631/
    
    bin ich nur selten klargekommen.
    Insgesamt fand ich das alles immer etwas durcheinander.
    
    Ob Du mit der Formatierung einverstanden bist, wenn Du einfach Text an "lpr" pipst, wage ich auch zu bezweifeln. Ich persönlich würde dann wohl ein LaTeX-Dokument mit Perl generieren. Daraus kann man dann (über "pdflatex" auch ein pdf machen und dieses (nach "pdf2ps") an lpr übergeben.
    Oder man macht ein html, bei dem man aber nicht alle Formatierungsoptionen hätte.
    Ein weites Feld also, insgesamt ...
    - +3 replies
    - GwenDragon
      
      2012-09-29 20:24
      
      User since
      2005-01-17
      14837 articles
      Admin1
      
      2012-09-29T18:19:24 hlubenow
      Na ja, theoretisch einfach. Allerdings muß der Drucker dazu korrekt unter Linux eingerichtet sein. Was nicht immer ganz einfach ist.
      Wer Ubuntu benutzt und hplip bekommt ein korrekt eingerichtetes Linux, das auch mit lpr läuft.
      
      Ansonsten hast du Recht, wer schickimicki-Ausdrücke will, muss das eben noch formatieren; das geht zum Beispiel mit Postscript.
      
      Nachdem HT-User aber nur gefragt hat wie gedruckt werden kann, habe ich die einfachste Uralt-UNIX-Standard-Lösung gewählt.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - geloescht
        
        2012-09-29 21:22
        
        User since
        2012-06-19
        141 articles
        BenutzerIn
        
        Abend Community
        
        Vorab: Ich brauche eben gerade keinen "schickimicki"-Ausdruck. Das Druckerpapier kann man ja anderweitig vorbehandeln o. vorbehandeln lassen.
        
        Mir geht es nur darum, Text zu drucken. Allerdings sollte der die Umlaute drucken können. Ein Eurozeichen "€" wäre auch toll, sonst schreib ich halt "Euro" auf die Rechnung!
        
        druckertest.pl:
        
        Code (perl): (dl )
        
        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;
        
        Fehlermeldung dazu:
        
        Code: (dl )
        
        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.
        
        Nur als Zwischenstandsmeldung - ich probier weiter...
        
        Gruss HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        GwenDragon
        
        2012-09-29 21:27
        
        User since
        2005-01-17
        14837 articles
        Admin1
        
        Du hast meinen Code nicht korrekt abgeschrieben. ;)
        
        $lpr ist ein Dateihandle. Das Dateihandle darf nicht durch Komma getrennt werden von den Daten.
        
        Deswegen muss bei dir in Zeile 18 folgendes stehen:
        
        Code (perl): (dl )
        
        print $lpr "Das ist der Text, der nun gedruckt sein sollte... \n";
        
        Und in Zeile 19 ist ein or zu viel.
        
        Code (perl): (dl )
        
        close $lpr or die "Fehler beim Drucken: $!";
        
        Last edited: 2012-09-29 21:28:48 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Daxim
      
      2012-09-30 23:16
      
      User since
      2007-08-01
      114 articles
      BenutzerIn
      
      2012-09-29T18:19:24 hlubenow
      Heute heißt das ein bißchen anders.
      kcmshell4 printers == Systemeinstellungen → Nicht zuzuordnen → Drucker
    - GwenDragon
      
      2012-10-01 10:17
      
      User since
      2005-01-17
      14837 articles
      Admin1
      
      Die Druckereinrichtung in KDE ist einfach zu finden:
      K-Menü -> oben in Suchen eingeben: Druckerein
      dann erscheint Druckereinrichtung
      Enter drücken
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +10 replies
  - GwenDragon
    
    2012-09-29 21:34
    User since
    2005-01-17
    14837 articles
    Admin1
    
    Falls immer noch nicht gedruckt wird, musst bei lpr mit dem Parameter -P den Drucker angeben.
    
    falls der Drucker den Namen printer hat also so:
    
    Code (perl): (dl )
    
    open ($lpr, "| lpr -P printer") or die "Fehler beim Drucken: $!";
    
    Welchen "Namen" der Drucker im System hat, erfährst du in der Shell mit:
    lpstat -d
    
    //EDIT:
    Schau mal bitte wie die Admin-Tools der Kommandozeile so laufen:
    http://tldp.org/HOWTO/Printing-Usage-HOWTO-2.html
    Last edited: 2012-09-29 21:40:56 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +9 replies
    - geloescht
      
      2012-09-29 21:56
      
      User since
      2012-06-19
      141 articles
      BenutzerIn
      
      Hi Gwen
      
      Supi, er druckt! Auch ohne Druckernamenangabe!
      Und es sieht aus, wie mit Schreibmaschine geschrieben. Rechnungsmäßig eben - echt geil! :-)
      
      Was mich jetzt noch interessieren würde, aber nicht "kriegsentscheident" ist:
      Formatierungen wie "Fettdruck", "Unterstreichen", "kursiv" möglich?
      Schriftgrösse (pitch) einstellbar (für bsp.Überschriften)?
      
      Danke nochmal an alle, die geholfen haben. Es ist echt toll, wenn ein eigenes Programm Daten auf dem Drucker ausgibt. Da machts doch wieder Spass, wenn was funktioniert!
      
      Gruss HP-User
      Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
      - hlubenow
        
        2012-09-29 22:21
        
        User since
        2009-02-22
        877 articles
        BenutzerIn
        
        Ach so, Du willst Rechnungen erstellen!
        Dazu fällt mir im Zusammenhang mit Perl immer dieses ein:
        
        http://www.linux-magazin.de/Heft-Abo/Ausgaben/2004...
        
        Arbeitet mit OpenOffice zusammen, was eigentlich auch eine ganz gute Idee ist.
      - +4 replies
      - topeg
        
        2012-09-30 02:10
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Dafür brauchst du Postscript. Das einfachste ist, du erstellst mit einer Textverarbeitung eine Grundstruktur, und setzt Platzhalter dort ein, wo später der richtige Text stehen soll. Dann speicherst du das als Postscript (oder druckst es als Postscript in eine Datei) Pistscript ist ein Textformat. Dieses kannst du dir in einem Texteditor anschauen. Da wirst du auch die Platzhalter finden. Wenn du nun drucken willst. Datei in Perl einlesen, die Platzhalter ersetzen (RegExp) und das an den Drucker senden.
        
        +2 replies
        
        Patterner
        
        2012-09-30 09:38
        
        User since
        2007-01-02
        25 articles
        BenutzerIn
        
        PostScript ist mir für sowas zu kompliziert, ich benutze da lieber LaTeX.
        Auch Text, kürzer und lesbarer :)
        
        Stichworte: LaTeX::Driver latexmk LuaLaTeX Template-Toolkit usw...
        “I’m working on it.”
        
        topeg
        
        2012-09-30 10:11
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Das muss trotzdem in Postscript gewandelt werden, wenn es gedruckt werden soll. Das Postscript bekommt man normalerweise auch nicht zu Gesicht, wenn man mit Templates arbeitet.
        
        Wenn man Ein Dokument von Grund auf erstellt dann benutzt man natürlich passende Module. Wie z.B. PostScript::Simple
        
        guest dimpflmoser
        
        2012-10-02 08:50
        
        Hallo zusammen,
        
        genau! Ich verwende für derartige Ausgaben stets Libre/OpenOffice. Ich erstelle ein Dokumententemplate mit Textmarken für die späteren Ausgaben. Das Dokument "befülle" ich von Perl aus über das Modul "OpenOffice::OODoc", das sich einfach mit cpan installieren lässt, und öffne schließlich das Dokument über einen System-Aufruf ...
        
        Auf diese Weise habe ich die Ausgaben in mehreren kommerziellen Anwendungen, die zum Teil schon mehrere Jahre bei meinen Kunden reibungslos ihren Dienst verrichten, implementiert.
        Last edited: 2012-10-02 09:16:29 +0200 (CEST)
      - +3 replies
      - GwenDragon
        
        2012-09-30 11:58
        
        User since
        2005-01-17
        14837 articles
        Admin1
        
        Du kannst natürlich auch die Steuerbefehle (PCL) für den Drucker einbetten.
        Da gibt es Schriftgröße, fett, Schriftart etc.
        
        PCL hat die Möglichkeit Druckersteuersequenzenz zu formatieren.
        Das sind meist Sequenzen die mit Escape (char dez. 27) beginnen.
        Wenn du mit Perl Zeichenkette "\x1b(s3B" - das ist nämlich ESC ( s 3 B) - an den Drucker sendest, ist das fett.
        
        Dazu musst du bitte die PCL5-Redferenz oder dein Druckerhandbuch befragen.
        
        Weiteres:
        http://www.undocprint.org/formats/page_description...
        http://www.undocprint.org/_media/formats/page_desc...
        http://h20000.www2.hp.com/bizsupport/TechSupport/D...
        Last edited: 2012-09-30 12:11:52 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        geloescht
        
        2012-09-30 14:42
        
        User since
        2012-06-19
        141 articles
        BenutzerIn
        
        Hi Gwen
        
        Merci für PCL...
        
        Hab ich das richtig verstanden, dass ich die PCL-Sequencen durch die Pipe schicken kann?
        
        Gruss HP-User
        
        *werde mal die DruckerDoku befragen...
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        GwenDragon
        
        2012-09-30 16:19
        
        User since
        2005-01-17
        14837 articles
        Admin1
        
        Ja, einfach an die Pipe senden, das sollte eigentlich klappen wenn der Drucker im Raw-Mode ist.
        
        Musst du halt testen, ich verwende nur Postscript-Drucker.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - deleted 2012-10-01 10:15

View all threads created 2012-09-29 18:58.