CODEWITHSUNDEEP
perlshellprintinglpr
BrianX
BrianX

Reputation: 136

How to send the files in a directory to the printer in Perl?

Okay, here's what I'm trying to do:

I have an email with a series of MIME attachments. I have sample code that will get me as far as creating a directory with the decoded attachments in it; what I need to do now is send the contents of that directory to lpr. (I'm not screening out bad file formats; I'm leaving it up to the spooler daemon to deal with.)

Upvotes: 0

Views: 442

Answers (1)

Jonathan Leffler
Jonathan Leffler

Reputation: 754450

What about using glob:

my @files = glob($decode_directory/*);
system "lpr", @files;

You can make the glob argument more selective. The system function written thus avoids launching a shell and runs the lpr command directly.

Upvotes: 7

Related Questions