paola82 has asked for the wisdom of the Perl Monks concerning the following question:
Hi dear monks. I'm tryng to improve my script as automatically surfing for searching my bio data :-).... That is my question: I have my web page and I only want to extract the link of my ligand...They are two for this case and maybe more or less for other cases (other proteins). In this case I need only to print the link of the "EPE" ligand...but it seems that my "if" cicle doesn't work...I'll paste my code below
#!/usr/bin/perl use warnings; use strict; use LWP::Simple; print "ELENCO LIGANDI\n"; my $url3 = "http://www.ebi.ac.uk/thornton-srv/databases/cgi-bin/pdbsum +/GetPage.pl?pdbcode=2j6p&template=ligands.html&l=1.1"; my $content =get ($url3); use HTML::TreeBuilder; my $p = HTML::TreeBuilder->new; $p->parse_content($content); my @a = $p->look_down(_tag => q{a}); for my $a (@a){ my $txt = $a->as_text; if ($txt=~ /EPE\s/){ print $txt, qq{\n}; use Web::Scraper; use Data::Dumper; # Invoked for a <a> tag my $link = scraper { process '//a' => 'href' => '@href'; process '//a' => 'description' => 'TEXT'; }; my $page = scraper { process '//a[@href]' => 'links[]' => $link; process '//meta[@http-equiv]' => 'meta[]' => '@content'; process '//area[@href]' => 'areas[]' => '@href'; }; my $info = $page->scrape($content); print Dumper $info; } } $p->delete;
thanks in advance....I'm apologizing for disturbing all of you
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: parsing html link
by wfsp (Abbot) on May 25, 2009 at 10:21 UTC | |
by paola82 (Sexton) on May 25, 2009 at 10:34 UTC | |
Re: parsing html link
by poolpi (Hermit) on May 25, 2009 at 10:24 UTC |
Back to
Seekers of Perl Wisdom