Help for this page

Select Code to Download


  1. or download this
    $  file sample.jpg
    sample.jpg: JPEG image data, JFIF standard 1.01, resolution (DPI), den
    +sity 123x123, segment length 16, progressive, precision 8, 1024x1448,
    + frames 3
    ...
    000000a0  00 11 08 >>> 05 a8 04 00 <<<< 03  01 22 00 02 11 01 03 11  |
    +........."......|
    000000b0  01 ff c4 00 1e 00 01 00  01 04 03 01 01 00 00 00  |.........
    +.......|
    000000c0  00 00 00 00 00 00 00 06  05 07 08 09 03 04 0a 02  |.........
    +.......|
    
  2. or download this
    elsif ( $_[0] =~ m/^^\xFF\xD8.{4}JFIF/s  ) {
       $sig = 'JPEG';        # found JPG signature
    ...
            print "\nNative $img $res[2] width $res[0] height $res[1]\n";
            ($x, $y) = imgsize($img);
            print "Image::Size ($x, $y)\n"
    
  3. or download this
    Native ./sample.jpg JPEG width 1024 height 1448
    Image::Size (1024, 1448)
    
    Native ./sampleC.jpg JPEG width 617 height 1220
    Image::Size (617, 1220)