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

Question

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

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

Answer 1

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

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

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