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

Question

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

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

Answer 1

怎么样使用glob:

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

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