#!/usr/bin/perl -w

use strict;
use File::stat;

$| = 1;

opendir(DIR, ".") or die "Cannot opendir .: $!\n";
my @images = grep(/\.jbg$/, (sort readdir(DIR)));
closedir(DIR);

my @jbginfo;
foreach my $f (@images) {
    my ($xres, $yres);
    foreach $_ (`jbgtopbm -d "$f"`) {
	/XD =/ and $xres = (/= ([0-9]+)/)[0];
	/YD =/ and $yres = (/= ([0-9]+)/)[0];
	last if ($xres && $yres);
    }
    my $sb = stat($f);
    my $size = int($sb->size / 1024.); $size == 0 and $size = 1;
    push @jbginfo, "$f\t$xres\t$yres\t" . ($xres * $yres) . "\t$size\n";
}

open(FILE, ">.jbginfo");
print FILE @jbginfo;
close(FILE);
.