Hi...
can anyone help me? I have to extract protein complexes from PDB site www.rcsb.org
by using perl programming. After extracting them I have to store them in a file .
But I dnt know how can I make a loop and then get all the complexes one by one in a file.
This all I have to do with perl programming....& for that I developed a programm...bt it is not working.....
#my programm
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1);
$mech->get('http://www.rcsb.org/pdb/Welcome.do');
$mech->submit(
headerQueryForm => 'search',
fields => {'radioset' =>'Structures',},
fields => { 'inputQuickSearch' =>'protein complexes',},
button => 'search now'
);
#$mech->search;
my $results = $mech->content;
my @pdb;
while ($results == 'Sperm whale myoglobin mutant T67R S92D')
{
push @pdb,$1;
}
# open(FH, ">print.pdb");
# print FH $mech;
# close(FH);
please help me out............
-tripti
can anyone help me? I have to extract protein complexes from PDB site www.rcsb.org
by using perl programming. After extracting them I have to store them in a file .
But I dnt know how can I make a loop and then get all the complexes one by one in a file.
This all I have to do with perl programming....& for that I developed a programm...bt it is not working.....
#my programm
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1);
$mech->get('http://www.rcsb.org/pdb/Welcome.do');
$mech->submit(
headerQueryForm => 'search',
fields => {'radioset' =>'Structures',},
fields => { 'inputQuickSearch' =>'protein complexes',},
button => 'search now'
);
#$mech->search;
my $results = $mech->content;
my @pdb;
while ($results == 'Sperm whale myoglobin mutant T67R S92D')
{
push @pdb,$1;
}
# open(FH, ">print.pdb");
# print FH $mech;
# close(FH);
please help me out............
-tripti