http://www.perlmonks.org?node_id=932836


in reply to Re: perl script to print data like this in pdf.
in thread perl script to print data like this in pdf.

Hi I modified but i am getting syntax errores at near ")[" and also at end "}".

my %nums;
while ($reader->nextElement( 'Number' )) {
    my $number = $reader->copyCurrentNode(1)->textContent;

    $reader->nextElement( 'address' ); 
    my $node = $reader->copyCurrentNode(1); 
    my $infohash = {
        house  => $node->getElementsByTagName( 'housenumber' )[0]->tex
+tContent,
        street => $node->getElementsByTagName( 'streetname'  )[0]->tex
+tContent,
    };
    $nums{$number} = $infohash;
}

[download]

Replies are listed 'Best First'.
Re^3: perl script to print data like this in pdf.
by roboticus (Chancellor) on Oct 21, 2011 at 10:15 UTC

    veerubiji:

    The syntax is nearly there. Try it this way:

    my %nums;
while ($reader->nextElement('Number')) {
    my $number = $reader->copyCurrentNode(1)->textContent;

    $reader->nextElement('address');
    my $node = $reader->copyCurrentNode(1);
    my $infohash = {
        house  => $node->getElementsByTagName( 'housenumber' )->[0]->t
+extContent,
        street => $node->getElementsByTagName( 'streetname'  )->[0]->t
+extContent,
    };
    $nums{$number} = $infohash;
}

    [download]

    ...roboticus

    When your only tool is a hammer, all problems look like your thumb.

[reply]
[d/l]

In Section Seekers of Perl Wisdom