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

Question

好的，这就是我要做的事情：

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

Answer 1

如何使用glob：

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

您可以使glob参数更具选择性。因此编写的system函数可以避免启动shell并直接运行lpr命令。