#!/usr/bin/perl
#
# "ls" for images, displays sizes and formats. no options
#
#   lsi *.png
#
# requires ImageMagick and PerlMagick
# http://www.simplesystems.org/ImageMagick/www/perl.html
#
# chris@toys.prowokulta.org
#
# http://toys.prowokulta.org/doc/alex/lsi
#

use Image::Magick;


print "name\t width\tx ht.\t depth\t size\t format\n";

foreach $name (@ARGV)
{

my($image, $x);

$image=Image::Magick->new;

$x=$image->Read($name);

$w=$image->Get('width');
$h=$image->Get('height');
$d=$image->Get('depth');
$f=$image->Get('format');
$s=$image->Get('filesize');


print "$name\t $w\tx $h\t $d\t $s\t $f\n";

}