using TreeBuilder in perl

[anirban0328]

Need help with TreeBuilder::XPath in perl

    use strict;
    use warnings;

    use LWP::Simple;
    use HTML::TreeBuilder::XPath; 

    my $url='file:///C:/Users/Rockstar/workspace/abc/globals_func.html
+';
    my $page = get($url) or die $!;

    my $p = HTML::TreeBuilder::XPath->new_from_content( $page);
    my @trips= $p->findnodes( '//div[@class="contents"]');
    foreach my $trip (@trips){
       print $trip->as_text."\n"; 
    }

After running it in an HTML file,I get output(ALL in one line) as ChainCtrlBuildChain() : ChainController.cChainCtrlDumpChain() : ChainController.cChainCtrlExit() : ChainController.cChainCtrlGetBitStreamChan() : ChainController.cChainCtrlInit() : ChainController.c.

I but want them to be shown as below(one row per value).

ChainCtrlBuildChain() : ChainController.c

ChainCtrlDumpChain() : ChainController.c

ChainCtrlExit() : ChainController.c

ChainCtrlGetBitStreamChan() : ChainController.c

ChainCtrlInit() : ChainController.c.

Kindly help me what am i missing my HTML file(displaying only the HTML code of "contents")

<div class="contents">
&#160;<ul>
<li>ChainCtrlBuildChain()
: <a class="el"   href="_chain_controller_8c.html#acb2c56087a2072b6445
+a54c17662d118">ChainController.c</a>
</li>
<li>ChainCtrlDumpChain()
: <a class="el" href="_chain_controller_8c.html#a13ed5a02bf232b115b9a5
+8cdd13dadd7">ChainController.c</a>
</li>
<li>ChainCtrlExit()
: <a class="el" href="_chain_controller_8c.html#a9e30e46ebc5411537efe9
+5a286e27cb4">ChainController.c</a>
</li>
<li>ChainCtrlGetBitStreamChan()
: <a class="el" href="_chain_controller_8c.html#a00faa6e64ea466d4ec573
+39017e57e71">ChainController.c</a>
</li>
<li>ChainCtrlInit()
: <a class="el" href="_chain_controller_8c.html#aed300a388eff2fa9c7565
+025982faab1">ChainController.c</a>
</li>
</ul>
</div><!-- contents -->

[Khen1950fx]

HTML::FormatText does exactly what you want.

#!/usr/bin/perl

use strict;
use warnings;
use utf8::all;
use HTML::FormatText;
use HTML::TreeBuilder::XPath; 

my $page = q{
<div class="contents">
&#160;<ul>
<li>ChainCtrlBuildChain()
: <a class="el"   href="_chain_controller_8c.html#acb2c56087a2072b6445
+a54c17662d118">ChainController.c</a>
</li>
<li>ChainCtrlDumpChain()
: <a class="el" href="_chain_controller_8c.html#a13ed5a02bf232b115b9a5
+8cdd13dadd7">ChainController.c</a>
</li>
<li>ChainCtrlExit()
: <a class="el" href="_chain_controller_8c.html#a9e30e46ebc5411537efe9
+5a286e27cb4">ChainController.c</a>
</li>
<li>ChainCtrlGetBitStreamChan()
: <a class="el" href="_chain_controller_8c.html#a00faa6e64ea466d4ec573
+39017e57e71">ChainController.c</a>
</li>
<li>ChainCtrlInit()
: <a class="el" href="_chain_controller_8c.html#aed300a388eff2fa9c7565
+025982faab1">ChainController.c</a>
</li>
</ul>
</div><!-- contents -->
};

my $tree = HTML::TreeBuilder::XPath->new_from_content($page);

my(@trees) = $tree->findnodes('//div[@class="contents"]');
foreach $tree(@trees) {
    my $formatter = HTML::FormatText->new(
        leftmargim  => 0,
        rightmargin => 50,
    );
    print $formatter->format($tree);
}

[choroba]

Crossposted on StackOverflow. Note that it is considered polite to inform about crossposting, so people not attending both sites do not waste their effort solving a problem already answered at the other end of the Internets.

[anirban0328]

Oh sry !! didn't know about crossposting not allowed. Thanks for the tips and for your time.Problem solved!!

[choroba]

Crossposting is allowed. Crossposting without announcement is being frowned upon.

[Anonymous Monk]

ALL in one line

Here is a tip, print some \newlines

Read perlintro , especially Basic syntax overview

Read perlop#Quote and Quote like Operators, qq/STRING/, Quote and Quote-like Operators, Modern Perl pdf page 17 :)

[anirban0328]

Oh sorry,forgot to say i tried newlines "\n" earlier.but it didn't help. Basically it is copying everything in single line.While debugging entire content is copied to one row of array @trips.

[Anonymous Monk]

Then use Dumper() to see what you have

See also htmltreexpather.pl and xpather.pl

htmltreexpather.pl , Parsing HTML / Re^4: Parsing HTML, A regex question , NASA's Astronomy Picture of the Day / Re: NASA's Astronomy Picture of the Day , Re: Extracting HTML content between the h tags, Re^2: Help With Online Table Scraper, Re^4: web::scraper using an xpath, .... HTML Parser suggestions

xpather.pl
Re: Get Node Value from irregular XML (xpather.pl)
Re: Having trouble with siblings
Re^2: XML parsing and Lists
Re: Counting number of child nodes based on element value (typos)
Re^3: Extracting specific childnodes (xpath whitespace)
Re^3: Extracting specific childnodes (play xmllint --shell )
Re: How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath?
Re: How do i get value of an element if the next elememnt has specific value in XML::LibXML using Xpath?
Re: How to parse xml with namespase vale in XMl:LibXML? ( XPath error : Undefined namespace prefix )
Re^2: How to parse xml with namespase vale in XMl:LibXML? (xmllint --shell setns / xpathtester)

[Anonymous Monk]

Also , if you're not getting the data you think you should be getting, use Basic debugging checklist item 4 ( Dumper )