Get the existing margin on a pdf page

ps04 has asked for the wisdom of the Perl Monks concerning the following question:

I need to get the existing margins(left, right, top, bottom) on a page of pdf file in perl, here is the code to get the dimension of padf page.

use CAM::PDF;

my $pdf = CAM::PDF->new('test2.pdf');

my $num_page=$pdf->numPages();
print "Total Pages : $num_page\n";

my ($x,$y,$width,$height)=$pdf->getPageDimensions(2);
print "Dimension of PDF File : $width x $height  px \n";
[download]

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

Replies are listed 'Best First'.
Re: Get the existing margin on a pdf page by Anonymous Monk on Aug 21, 2013 at 09:56 UTC
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]	[reply] [d/l]
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]