view release on metacpan or  search on metacpan

eg/subsequence.cgi  view on Meta::CPAN

73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
  close $TEMPORARY;
  print "</tt>\n";
  unlink $filename;
}
 
sub print_form {
  print p("This web page permits you to extract a short subsequence of DNA from a large GenBank entry.  This is especially useful in an era of huge \"contigs\" of genomic DNA, where you only want to extract a few hundred base pairs for subsequent ana...
   
  print p,"This program also illustrates the power of ",a({-href => 'http://www.BioPerl.org/'}, "BioPerl"), ", a powerful set of tools for molecular biology analysis.  The ", a({-href => 'subsequence.pl.txt'}, "source code"), " for this program is le...
   
  print p,"You must specify the GenBank accession number along with a start position.  You may specify either the length of the subsequence you wish to extract or, equivalently, the endpoint.\n";
   
  print "The sequence may be reverse-complemented if you wish, e.g., the reverse complement of <font color=green>ATCGC</font> is <font color=yellow>GCGAT</font>.\n";
   
  print p,"To test this web page, try accession NT_004002, start 50000, length 400.\n";
   
  print start_form,table(
                         Tr(td("Enter your GenBank accession"),td(textfield(-name => 'accession',-size => 20))),
                         Tr(td("Start position"),td(textfield(-name => 'start',-size => 10))),
                         Tr(td("Specify length or end position"), td(radio_group (-name => 'length_or_end_choice',-values => [Length, End], default => Length))),
                         Tr(td("Length or end position"), td(textfield (-name => length_or_end_value,-size => 20))),