Hi,
I have one xml file, I extracted some comments and saved in pdf file.I written code like this
#!/usr/bin/perl
use warnings;
use strict;
use PDF::API2;
use PDF::API2::Page;
use XML::LibXML::Reader;
use Data::Dumper;
my $file;
open( $file, 'formal.xml');
my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
my %nums;
while ($reader->nextElement( 'Number' ) ) {
my $number = $reader->readInnerXml();
$reader->nextElement( 'address' );
my $info = $reader->readOuterXml();
$nums{$number}= $info;
}
my $pdf = PDF::API2->new();
# $pdf->mediabox('Letter');
my $font = $pdf->corefont('Times-Roman');
my $page = $pdf->page();
$page->mediabox('Letter');
my $cnt=0;
for my $line (split /\n/, Dumper(%nums)) {
if ($cnt > 46) {
$page = $pdf->page();
$cnt=0;
}
my $text = $page->text();
$text->font($font,14);
$text->translate(72, 720-$cnt*14);
$text->text($line);
++$cnt;
}
$pdf->saveas('svr.pdf');
when I run this code it extracting and printing extracted tags as it is in pdf file like as shown below.
$VAR1 = '24';
$VAR2 = '<Address>
<housenumber="120"/>
<streetname="xxx"/>
</information>';
$VAR3 = '25';
$VAR4 = '<Address>
<housenumber="150"/>
<streetname="xxx"/>
</information>';
$VAR5 = '27';
$VAR6 = '<Address>
<housenumber="140"/>
<streetname="xxx"/>
</information>';
like that but i need to print data in pdf like this
number: 24
Information:Address,
housenumber="120",
streetname="xxx".
number: 25
Information:Address,
housenumber="150",
streetname="xxx".
number: 27
Information:Address,
housenumber="140",
streetname="xxx".
I need to print output like this in pdf file. In my Written code I am printing xml tags as it is. What should i do to print like, help me with script.