imgsize.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:42 2010 from imgsize.pl 2008/12/08 1.2 KB.

#!/perl -w
# MODULE: imgsize.pl 
# AIM: Use external imagemagick 'identify.exe' to get an image SIZE geometry
# Services: im_get_image_size( file_name ); returns geometry nnnnxnnnn
# im_get_image_width( geometry ); returns WIDTH
# im_get_image_height( geometry ); returns HEIGHT
# 21/08/2007 geoff mclane http://geoffair.net/mperl
use strict;
use warnings;
sub im_get_image_width {
   my ($is) = shift;
   my $wid = 0;
   my @arr = split(/x/,$is);
   if (scalar @arr == 2) {
      $wid = $arr[0];
   }
   return $wid;
}
sub im_get_image_height {
   my ($is) = shift;
   my $hgt = 0;
   my @arr = split(/x/,$is);
   if (scalar @arr == 2) {
      $hgt = $arr[1];
   }
   return $hgt;
}
sub im_get_image_size {
   my ($if) = shift;
   my $is = '';
   if (open (IDT, "identify \"$if\"|")) {
      my @arr2 = <IDT>;
      close IDT;
      foreach my $ln (@arr2) {
         chomp $ln;
         #prt( "[$ln]\n" );
         if (substr($ln,0,length($if)) eq $if) {
            my $ln2 = substr($ln,length($if));
            $ln2 =~ s/^\s//;
            #prt( "$ln2\n" );
            if ($ln2 =~ /\s(\d+x\d+)\s/) {
               $is = $1;
            }
         }
      }
   } else {
      prt( "ERROR: I can't open [$if]\n" );
   }
   return $is;
}
1;
# eof - imgsize.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional