DPI直すやつ

correct-dpi

#!/usr/bin/env perl
use 5.014;
use warnings;

my $file = $ARGV[0];

system qw/sips -d profile --deleteColorManagementProperties/, $file;
my $dpiWidth    = `sips -g dpiWidth $file    | awk '/:/ {print \$2}'`;
my $dpiHeight   = `sips -g dpiHeight $file   | awk '/:/ {print \$2}'`;
my $pixelWidth  = `sips -g pixelWidth $file  | awk '/:/ {print \$2}'`;
my $pixelHeight = `sips -g pixelHeight $file | awk '/:/ {print \$2}'`;
if ($dpiWidth > 72.0 && $dpiHeight > 72.0) {
    my $width  =  $pixelWidth * 72.0 / $dpiWidth;
    my $height =  $pixelHeight * 72.0 / $dpiHeight;
    system qw/sips -s dpiWidth 72 -s dpiHeight 72 -z/, $height, $width, $file;
}