cgi-bin/about/clustal_file.pl

   1 use strict;
   2 use CXGN::Page;
   3 use CXGN::Page::FormattingHelpers qw/  page_title_html
   4                                        blue_section_html  /;
   5
   6 my ($intro_content, $example_content, $ref_content);
   7
   8 ##########################################
   9 #Define the introdution
  10 $intro_content = "<tr><td><p>Clustal alignment file is the result file from a alignment program, such as clustalw[1] and t_coffee[2].</p></td></tr>";
  11
  12 #########################################
  13 #Define the exaple
  14 $example_content = "<tr><td colspan=\"2\">CLUSTAL W (1.81) multiple sequence alignment<br /><br /></td></tr>";
  15 $example_content .= "<tr><td><tt>seq_1<br />seq_2<br /><br /></tt></td><td><tt>ATAGATCTTAAATTTTATTATTTTTCTTGAGTTCATCATCAACAAAACAACCCAATACAA<br />ATAGATCTTA--TTTTATTATTTTTCTTGAGTTCATCATCAACAAAACAACCCAATACAA<br /><br /></tt></td></tr>";
  16 $example_content .= "<tr><td><tt>seq_1<br />seq_2<br /><br /></tt></td><td><tt>TATATCACAGAGAAACAAATACAAAGGAAAAGAATAGAAATGGCTAAAACTATCATGGTT<br />TATATCACAGAGAAACAAATACAAAGGAAAAGAATAGAAATGGCTAAAACTATCATGGTT<br /><br /></tt></td></tr>";
  17 $example_content .= "<tr><td><tt>seq_1<br />seq_2<br /><br /></tt></td><td><tt>AATTTAACAGGGAAAGATGGGAAGGTTGAGTACCAATGCAAGACATCTGAGGTTGTCGTT<br />AATTTAACAGGGAAAGATGGGAAGGTTGAGTACCAATGCAAGACATCTA----TGGCGAC<br /><br /></tt></td></tr>";
  18 $example_content .= "<tr><td><tt>seq_1<br />seq_2</tt></td><td><tt>GCAAACATGAAAGAACACATTGAGACAGATGAATGTGTCGATGCTTGTGGCGTTGACAGA<br />TTGAGCATGAAAGAACACATTGAGACAGATGAATGTGTCGATGCTTGTGGCGTTGACAGA<br /><br /></tt></td></tr>";
  19 $example_content .= "<tr><td><tt>seq_1<br />seq_2</tt></td><td><tt>TCCCCTGTTTCTTTCTAATTTATTCCCTA<br />TCCCCTGTTTCTTTCTAATTTATTCCCTA<br /><br /></tt></td></tr>";
  20
  21 #################################################
  22 #Define references
  23 $ref_content = "<tr><th valign='top'>[1] </th><td><a href=\"http://www.ebi.ac.uk/clustalw\">www.ebi.ac.uk/clustalw</a></td></tr>";
  24
  25 $ref_content .= "<tr><th valign='top'>[2] </th><td><a href=\"http://www.igs.cnrs-mrs.fr/Tcoffee/tcoffee_cgi/index.cgi\">www.igs.cnrs-mrs.fr/Tcoffee/tcoffee_cgi/index.cgi</a></td></tr>";
  26
  27
  28 ################################################
  29 #Generate the page
  30 our $page = CXGN::Page->new( "Clustal Alignment File", "Chenwei Lin");
  31 $page->header();
  32 print page_title_html("Clustal Alignment File");
  33
  34
  35 print blue_section_html('Introduction','<table width="100%" summary="" cellpadding="3" cellspacing="0" border="0">'.$intro_content.'</table>');
  36 print blue_section_html('Example','<table width="100%" summary="" cellpadding="3" cellspacing="0" border="0">'.$example_content.'</table>');
  37 print blue_section_html('References','<table width="100%" summary="" cellpadding="3" cellspacing="0" border="0">'.$ref_content.'</table>');
  38
  39 $page->footer();