http://www.perlmonks.org?node_id=1017954


in reply to Re: Documentation of PDF::GetImages is lack of some info concerning the 'optionals'
in thread Documentation of PDF::GetImages is lack of some info concerning the 'optionals'

My last change of code:

#!/usr/bin/perl -w use 5.010; use strict; use warnings; use Cwd qw(); use PDF::GetImages 'pdfimages'; my $path = Cwd::cwd(); my $abs = $path.'/file.pdf'; # filepath to pdf file my $opt = $path.'/processing/'; # new dir for output my $images = pdfimages($abs, $opt) or die($PDF::GetImages::errstr); scalar @$images or die("no images in $path"); for (@$images){print "$_\n";}

Output in commandline is:
"cant resolve /home/auu/Documents/Imag/processing/, should be able to, please notify PDF::GetImages AUTHOR at extractor.pl line 11"

Enough codes make shapes. (Hamidjon)

Replies are listed 'Best First'.
Re^3: Documentation of PDF::GetImages is lack of some info concerning the 'optionals'
by jms53 (Monk) on Feb 09, 2013 at 12:41 UTC
    Did you try setting $abs and $opt as absolute paths?

    Also, as for your other question, unless I am mistaken, it creates an array of the images created in $opt ($path). therefore, if empty returns false and dies with the error message "no images in $path".
    J -
      It is working! The mistake was that I didn't create the folder, I thought that Perl will create if there is no folder... Now, I created manually the folder and all is working... now, I'll write the code that will create the folder...
      Enough codes make shapes. (Hamidjon)

      I made such but there is no result:

      my $abs = '/home/auu/Documents/Imag/file.pdf'; my $opt = '/home/auu/Documents/Imag/newfolder/';
      Enough codes make shapes. (Hamidjon)