Attachment 9339 Details for Bug 19669 – Crude script to drive perl-Image-Info

Crude script to drive perl-Image-Info

19699.pl (text/plain), 512 bytes, created by Lewis Smith on 2017-05-26 18:47:45 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Lewis Smith

Created: 2017-05-26 18:47:45 CEST

Size: 512 bytes

patch

obsolete

#!/usr/bin/perl
# Usage <scriptname> <image filename>
use Image::Info qw(image_info);
@info = image_info("$ARGV[0]");	# array of hash array refs, per image
$info = @info;	# number of elements returned
print "No. of images = ", $info, "\n";

my %image = %{ $info[0] };	# Thanks to Shlomi
@keys = keys %image;
$keys = @keys;
print "No. of hash keys = ", $keys, "\n";
@vals = values %image;
$vals = @vals;
print "No. of hash values = ", $vals, "\n";
while (($key, $value) = each %image)
{
	print "$key=$value \n";
}

Actions: View

Attachments on bug 19669: 9339