Re^2: Problem extracting an HTML table with Perl

Indeed, it got a bit better, but I am still getting a lot of information. I now found that my search is completely independent of that "class" in my $tree->find. So any of the following alternatives gives the same result, and shows that the search is only done on the tag:

my $data =$tree->find(
    '_tag' =>'div'
    );
[download]

or even

my $data =$tree->find(
    '_tag' =>'div',
    class => 'somethingthatdoesnotexists1209841290r'
    );
[download]

Comment on Re^2: Problem extracting an HTML table with Perl Select or Download Code

Replies are listed 'Best First'.
Re^3: Problem extracting an HTML table with Perl by kennethk (Abbot) on Aug 11, 2014 at 17:21 UTC
That is not what I see, and I note the OP used the look down method instead of the find method as you have in this post. If I run `#!/usr/local/bin/perl use strict; use warnings; use autodie; use Data::Dump; use HTML::Tree; use LWP::Simple qw(get); my $content=get('http://www.ncbi.nlm.nih.gov/genome/?term=Xylella_fast +idiosa'); my $tree = HTML::Tree->new(); $tree->parse($content); my $data =$tree->look_down( '_tag' =>'div', class => 'genome_descr' ); print $data->as_HTML;` [download] I get the output `<div class="genome_descr"><p><b>Submitter: </b><a href="http://aeg.lbi +.ic.unicamp.br/xf/" target="_blank">Sao Paulo state (Brazil) Consorti +um</a></div>` [download] If I run with `my @data =$tree->look_down( '_tag' =>'div', class => 'genome_descr' );` [download] instead, I get 2 results. How does this compare for you? #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^4: Problem extracting an HTML table with Perl by Sosi (Sexton) on Aug 11, 2014 at 17:56 UTC
I had missed that of the find. I now found that I chose the wrong tag given that I wanted the list that shows after this tag, but I'll get to that later. Indeed I now see that I cannot dd $data as it dumps everything - the print $data->as_HTML solves the problem. One more question: in your second example, how did you print the data? Thanks so much!	[reply]
Re^5: Problem extracting an HTML table with Perl by kennethk (Abbot) on Aug 11, 2014 at 18:22 UTC
For the list context call, I actually only output `print 0+ @data;` [download] to tell me the length of the array. If I wanted to print both terms, I'd either use a map and a join `print join "\n", map $_->as_HTML, @data;` [download] or just use Foreach Loops: `for my $datum (@data) { print $datum->as_HTML, "\n"; }` [download] #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]