Capture Height & Width of a Image (eps extension) file

[Srini]

Hi Experts,

I need to capture the width and height of a image (particularly eps extension) file.

I have used Image::Size module, but it is not supporting the "eps" extension format.

Could you please suggest anyone, what's the appropriate module for this requirement with some example?

Thanks in advance.

P. Srinivasan

[marto]

Hi Srini, the module Image::ExifTool supports eps files, you can use it to get the height and width, as well as other information about images. Example code is provided in the documentation.

Update: I notice you have reposted this same question in the Perl Monks Discussion section of this site. Please read the PerlMonks FAQ and How do I post a question effectively?.

Hope this helps

Martn

[zentara]

I just found that it worked with Image::Magick.

Output:

GD-graph1.eps is 200x200
200
200
120068
PS

The script I used is:

#!/usr/bin/perl -w
use Image::Magick;

my $x = $ARGV[0];
my $image;
$image = Image::Magick->new;
$image->Read($x);
my ($w,$h)= $image->Get('columns','height');
print $x,' is ',$w.'x'.$h,"\n";
#this is very inneficient memory wise, use Ping

($width, $height, $size, $format) = $image->Ping($x); 
print $width,"\n", $height,"\n" ,$size,"\n", $format,"\n";

[ambrus]

If you can't find an existing solution, then read the Adobe postscript DSC (PDF) and implement one yourself.