OUTPUT BUFFER:
source /usr/local/apache2/PourRivet/SessionBeforeScript.tcl #!/usr/local/bin/tclsh set TclDir "/home/ripp/www/PublicDirectory/TclRipp" source "$TclDir/BasicTclTools.tcl" proc SeqDuEmbl {FichierEmbl} { set Texte [TextFromFile $FichierEmbl] #rR extraction de la séquence avec une expression régulière regexp {\nSQ[^\n]+\n([^/|$]+)(/|$)} $Texte Match Sequence regsub -all -nocase {[^a-z]} $Sequence "" Sequence return $Sequence } puts [SeqDuEmbl "/genomics/link/CilioCarta/protembl/HSAP00001"] exit