GD::Imageでピクセルカウンターみたいなのを作って白ピクセルを数えてみた。 #!/opt/local/bin/perl -w use strict; use GD::Image; for my $file (@ARGV){ my $pxcount = 0; my $wpxcount = 0; my $img = GD::Image->newFromPng($file); my ($w,$h) = $img->getBounds(); my $white = ($file eq 'terada.png') ? '252253252' : '255255255'; for my $x (0..$w){ for my $y (0..$h){ $pxcount++; $wpxcount++ if $white eq join '', $img->rgb($img->ge