# retrieve page labels from pdf (specified in pdf keywords section as pagelabel=#;pagelabel=#;pagelabel=#;etc...) my %info = $pdf_template->info(); my %page_labels = (); my @attributes; if (defined $info{'Keywords'}) { my @pages = split ';',$info{'Keywords'}; foreach (@pages) { @attributes = split "=",$_; $page_labels{$attributes[0]} = $attributes[1]; if (($debugging != 0 ) || ($verbose !=0 )) { print "$attributes[0]: $attributes[1]\n"; } } undef @pages; } undef %info; undef @attributes;