Entering edit mode
9.7 years ago
cvu
▴
180
Hi all,
I have a pdf file which contains table. Now I want to give hyperlink to all cells of first column using perl script.
I've tried PDF::API2::Annotation
, but not getting links at first column. I'm confused how to give hyperlink to particular text in PDF table.
Thanks
#!/usr/bin/perl
use PDF::API2;
use strict;
use warnings;
use Data::Dumper;
use PDF::Table;
use PDF::API2::Annotation;
my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "table.pdf");
my $page = $pdf->page;
#my $page = $pdf->openpage(1);
my $annot = $page->annotation();
my $url='http://permalink.gmane.org/gmane.comp.lang.perl.modules.pdfapi2/655';
$annot->url($url,-rect => [80,80,794,1050,],-border =>
[1,1,1]);
$pdf->saveas();
$pdf->end;