Re: Get the existing margin on a pdf page

http://stackoverflow.com/questions/2604920/how-to-shift-pdf-page-using-perl-campdf-pdfapi2/2634583#2634583

my $pdf = CAM::PDF->new('my.pdf');
my $page = $pdf->getPage(1);
my $mediabox =  $page->{MediaBox}->{value};
my( $hix, $hiy, $lox , $loy ) = map { $_->{value} } @$mediabox;
[download]

Comment on Re: Get the existing margin on a pdf page Download Code

Replies are listed 'Best First'.
Re^2: Get the existing margin on a pdf page by ps04 (Initiate) on Aug 22, 2013 at 05:15 UTC
Hey Thanks for the reply but, That will give the size of media/page not the margin of text present on the pdf page.	[reply]
Re^3: Get the existing margin on a pdf page by Anonymous Monk on Aug 24, 2013 at 08:36 UTC
Hey Thanks for the reply but, That will give the size of media/page not the margin of text present on the pdf page. The author of CAM::PDF answered the question how to move page to the right, by manipulating mediabox -- thats like increasing the margin -- so it is the margin of the page But I really don't use CAM::PDF much	[reply]