Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > PDF to JPG

Автор: burakov 12.8.2010, 16:37

Добрый день,

есть куча PDF файлов,
Задача
выдернуть из них первую страницу (ну или не всегда первую) перевести в графический формат (желательно jpg)

чем это можно сделать при помощи PERL

Спасибо.

Автор: mishnik 29.3.2011, 15:38

что-то типа?

Код


#!/perl/bin/perl -w
use CAM::PDF;
use CAM::PDF::PageText;
 
$filename = "example.pdf";
 
my $pdf = CAM::PDF->new($filename);
my $pageone_tree = $pdf->getPageContentTree(4);
print CAM::PDF::PageText->render($pageone_tree);
 
#Note: I had to install CAM::PDF::PageText by hand, it was not installed by CPAN when I installed CAM::PDF.