Code-source php


        <?php
        #    (gH)   -_-  demande_bioinfo_id.php  ;  TimeStamp (unix) : 05 Juillet 2009 vers 16:09
        ######################################
        include("../std.php") ;
        debutPage("Correspondances entre identifiants bioinfo") ;
        debutSection() ;
        ######################################
        
        function lid($ncbi_acc,$ncbi_gi,$uniprot_acc,$uniprot_name) {
        
        tr() ;
          td() ; echo $ncbi_acc     ; fintd() ;
          td() ; echo $ncbi_gi      ; fintd() ;
          td() ; echo $uniprot_acc  ; fintd() ;
          td() ; echo $uniprot_name ; fintd() ;
        fintr() ;
        
        } ; # fin de fonction lid
        
        ######################################
        
        $uniprot = href("http://www.uniprot.org/","Uniprot") ;
        $interpo = href("http://www.ebi.ac.uk/interpro/","Interpro") ;
        
        h2("Correspondances entre identifiants bioinfo") ;
        
        blockquote() ;
        form("reponse_bioinfo_id.php") ;
        
        p() ;
        echo "Donner un identifiant (et un seul) de protéine, la page vous fournira les autres  : " ;
        finp() ;
        
        table(0,5) ;
        tr() ;
          td() ; echo "NCBI accession" ; fintd() ;
          td() ; input_text("nacc","") ; fintd() ;
          td() ; fintd() ;
        fintr() ;
        tr() ;
          td() ; ; fintd() ;
          td() ;echo "NCBI gi"         ; fintd() ;
          td() ; input_text("ngi","")  ; fintd() ;
        fintr() ;
        tr() ;
          td() ; fintd() ;
          td() ; echo "Uniprot accession" ; fintd() ;
          td() ; input_text("uacc","") ; fintd() ;
        fintr() ;
        tr() ;
          td() ; fintd() ;
          td() ; echo "Uniprot name" ; fintd() ;
          td() ; input_text("unam","") ; fintd() ;
        fintr() ;
        tr() ;
          td() ; fintd() ;
          td("C") ; input_submit("envoi") ; fintd() ;
          td() ; fintd() ;
        fintr() ;
        fintable() ;
        
        finform() ;
        finblockquote() ;
        
        ## --------------------------------------
        
        h2("Exemples") ;
        blockquote() ;
        
        table(1,10,"collapse") ;
        tr() ;
          td() ; echo "NCBI accession" ; fintd() ;
          td() ; echo "NCBI gi" ; fintd() ;
          td() ; echo "Uniprot accession" ; fintd() ;
          td() ; echo "Uniprot name" ; fintd() ;
        fintr() ;
        
        lid("1210313A","225181","P09789","GRP1_PETHY")  ;
        lid("1601521A","226551","P13939","LEAD7_GOSHI") ;
        lid("1601521C","226553","P09441","LEA13_GOSHI") ;
        lid("1601521D","226554","P09442","DH11_GOSHI")  ;
        lid("1601521F","226556","P09444","LEA34_GOSHI") ;
        lid("1710351A","227777","P22238","DHA_CRAPL")   ;
        
        fintable() ;
        
        finblockquote() ;
        
        ######################################
        finSection() ;
        finPage() ;
        ######################################
        ?>
Si vous préférez, vous pouvez utiliser celle de geshi ou même celle construite autour de la fonction highlight_file.
Listing du fichier demande_bioinfo_id.php avec syntaxhighlighter
