Как отправить файлы из каталога на принтер в Perl?

Question

Хорошо, вот что я пытаюсь сделать:

У меня есть электронное письмо с серией вложений MIME. У меня есть пример кода, который поможет мне создать каталог с декодированными вложениями; Теперь мне нужно отправить содержимое этого каталога в lpr. (Я не проверяю плохие форматы файлов; я оставляю дело демону спулера, чтобы иметь дело с ним.)

Answer 1

Как насчет использования glob:

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

Вы можете сделать аргумент glob более избирательным. Таким образом, написанная функция system позволяет избежать запуска оболочки и напрямую выполняет команду lpr.