[Net::LPR] Papierschacht auswählen (gelöst) - #176846 (Fragen zu Perl-Modulen)

dominicn

2014-08-14 18:54

User since
2003-08-08
327 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich kämpfe gerade mit dem automatischen Druck verschiedener Dokumente aus einer Perl-Anwendung heraus. Das Skript soll auf Ubuntu Desktop 14 laufen, der Drucker ist ein Brother-Netzwerkdrucker (HL-4150CDN, Farblaser mit Duplexdruck).

Nach langen Versuchen mit den Kommandozeilentools lpr und lp wollte ich es nochmal mit Perl-Mitteln probieren, hier mit CPAN:

Net::LPR.

Folgendes Skript funktioniert auch:

Code (perl): (dl )

#!perl

use strict;
use warnings;
use Net::LPR;
use File::Slurp;

my $or_printer = Net::LPR->new(
    StrictRFCPorts => 1,
    RemoteServer   => '192.168.148.32',
    RemotePort     => 515,
    PrintErrors    => 1,
    RaiseErrors    => 1,
);

$or_printer->connect();

my $s_pdf_content = read_file('beispiel.pdf');

my $jobkey = $or_printer->new_job();
$or_printer->send_jobs('lp');
$or_printer->job_mode_text($jobkey);
$or_printer->job_send_control_file($jobkey);
$or_printer->job_send_data($jobkey, $s_pdf_content, length($s_pdf_content));
$or_printer->disconnect();

Das Dokument wird tatsächlich gedruckt, auch in Farbe funktioniert es. Aber (wie) kann ich weitere Optionen an den Drucker senden? Ich möchte ein Papierfach auswählen können und sagen können, ob doppel- oder einseitig gedruckt werden soll.

In der Dokumentation des Moduls fand ich leider nichts dazu. Das Modul ist auch sehr alt (letzte Version vor zehn Jahren erschienen), weshalb es fraglich ist, ob der Autor mir da noch helfen kann.

Es würde mich freuen, wenn mir jemand bei diesem sehr speziellen Thema weiterhelfen könnte!

Danke
Dominic