[Bio] / FortyEight / rp_PHOBIUS_search.pl Repository:
ViewVC logotype

Diff of /FortyEight/rp_PHOBIUS_search.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Thu Oct 11 20:17:44 2007 UTC revision 1.3, Wed Oct 17 15:32:06 2007 UTC
# Line 11  Line 11 
11  foreach my $peg (@pegs){  foreach my $peg (@pegs){
12      my $seq = $fig->get_translation($peg);      my $seq = $fig->get_translation($peg);
13      if($peg =~/(\d+.\d+.peg.\d+)/){$peg = $1;}      if($peg =~/(\d+.\d+.peg.\d+)/){$peg = $1;}
14      my $file = $jobdir."/$genome/$peg".".PHOBIUS_result";      my $file = $jobdir."/rp/$genome/$peg".".PHOBIUS_result";
15      open(OUT,">$file");      open(OUT,">$file");
16      my $browser = LWP::UserAgent->new;      my $browser = LWP::UserAgent->new;
17      my $url = "http://phobius.cgb.ki.se/cgi-bin/predict.pl ";      my $url = "http://phobius.cgb.ki.se/cgi-bin/predict.pl ";

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3