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

好的,这就是我要做的事情: 我有一封包含一系列MIME附件的电子邮件。我有一些示例代码,可以让我创建一个包含已解码附件的目录;我现在需要做的是将该目录的内容发送到lpr。 (我没有筛选出错误的文件格式;我将它留给后台处理程序守护程序进行处理。)     
已邀请:
怎么样使用
glob
my @files = glob($decode_directory/*);
system "lpr", @files;
你可以使
glob
论证更具选择性。因此编写的
system
函数避免了启动shell并直接运行
lpr
命令。     

要回复问题请先登录注册