mediabox size of first page for the PDF file

pp -e 'use PerlIO; use PDF::API2; print join q( ), map {$_ = $_->{val}} @{${PDF::API2->open(shift)->openpage(0)}{MediaBox}->{" val"}}' -o ~/bin/mediabox

Posted via email from purl's posterous