Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

ScanSnapでスキャンしたPDFをページごとに回転する

ScanSnapを使ってコミックスをスキャンしてPDFにしている。
縦に紙をセットするよりも、横にした方がスキャンが早く終わるのでそうしているけれど、
そうするとPDFが横向きになって、向きも表裏でばらばらになる。


ScanSnapを買うとAdobe Reader Professionalが付属して、いままで毎回「奇数ページ->左回転」「偶数ページ->右回転」を選んでいた。

が、さすがにだるくなったので、スクリプトをPerlで書いてみた。



上書きしているので、バックアップがあることを確認してから使おう。