わいえむねっと

スクリプト

use strict;
use warnings;

# left, bottom, right, top
my @offset = (20, 20, -20, -20);

while(<*.pdf>)
{
    next if /-cropped/;

    open my $in, $_ or die;
    s/(.*)(\.pdf)$/$1-cropped$2/;
    open my $out, '>', $_ or die;

    binmode $in;
    binmode $out;

    while(<$in>)
    {
        s/(\/CropBox\s*\[\s*([^\[]+)\])/crop($1, $2)/eg;
        print $out $_;
    }
}

sub crop
{
    my @offset = @offset;
    my @pos = map{int $_ + shift @offset} split /\s+/, $_[1];

    my $crop = sprintf '/CropBox[%d %d %d %d]', @pos;

    my $blank = length($_[0]) - length $crop;
    warn $_[0] and return $_[0] if $blank < 0;

    return $crop.(' ' x $blank);
}

実行結果

CropBox 変更前

CropBox 変更後

味噌

/CropBox [ 0 0 516 659.52 ]

/CropBox [ 20 20 496 639.52 ]

2011/03/30 02:42:41

前提条件

• ドットピッチ 0.265mm のディスプレイで表示した場合に端末での表示サイズになるよう計算

イメージのソース

縦表示

• 左右を目一杯に表示
• 上下は若干切れた状態

5インチ

6インチ

横表示

• 左右と上を目一杯に表示
• 下は要スクロール

5インチ

6インチ

2011/03/27 01:10:07