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