如何将目录中的文件发送到Perl中的打印机?

Bri*_*anX 0 printing shell perl lpr

好的,这就是我要做的事情:

我有一封包含一系列MIME附件的电子邮件.我有一些示例代码,可以让我创建一个包含已解码附件的目录; 我现在需要做的是将该目录的内容发送到lpr.(我没有筛选出错误的文件格式;我将它留给后台处理程序守护程序进行处理.)

Jon*_*ler 7

怎么样使用glob:

my @files = glob($decode_directory/*);
system "lpr", @files;
Run Code Online (Sandbox Code Playgroud)

你可以使glob论证更具选择性.这样system写的函数避免了启动shell并lpr直接运行命令.