png-cleanup.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $infile = shift ||
   7     die "no input file specified\n";
   8
   9 my $outfile = shift ||
  10     die "no outpu file specified\n";
  11
  12 # use the following to verify image attributes
  13 # identify -verbose <filename>
  14
  15 # set PixelsPerCentimeter to 58, so that we can display 1024
  16 # pixels (page width)
  17
  18 my $dpcm = 58;
  19
  20 system("convert -units PixelsPerCentimeter $infile -density $dpcm $outfile");
  21
  22 # identify should return the same value
  23 # system("identify -units PixelsPerCentimeter -format '%x x %y' $outfile");