Open main menu

Biolecture.org β

4) Creating a FASTA file and reversing the sequence of it and printing it out in another FASTA file

Revision as of 20:18, 21 May 2017 by imported>S

 My input file is TERT protein sequence, and its reverse output printed in "reverse_TERTseq.fasta"

20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)S 20:18, 21 May 2017 (KST)

  1. !/usr/bin/perl

use strict;
use warnings;

 open(FILE, "<sequence.fasta") or die "Can't open the file: $_\n";
 open(OUT, ">>reverse_TERTseq.fasta") or die "Can't open the filse: $_\n";
 while (my $file = <FILE>){
 $file = reverse $file;
 print OUT "$file";

}

20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)20:18, 21 May 2017 (KST)~
 

In another folder by name "sequence.fasta", I have saved TERT amino acid sequence: 

 >NP_937983.2 telomerase reverse transcriptase isoform 1 [Homo sapiens]
MPRAPRCRAVRSLLRSHYREVLPLATFVRRLGPQGWRLVQRGDPAAFRALVAQCLVCVPWDARPPPAAPS
FRQVSCLKELVARVLQRLCERGAKNVLAFGFALLDGARGGPPEAFTTSVRSYLPNTVTDALRGSGAWGLL
LRRVGDDVLVHLLARCALFVLVAPSCAYQVCGPPLYQLGAATQARPPPHASGPRRRLGCERAWNHSVREA
GVPLGLPAPGARRRGGSASRSLPLPKRPRRGAAPEPERTPVGQGSWAHPGRTRGPSDRGFCVVSPARPAE
EATSLEGALSGTRHSHPSVGRQHHAGPPSTSRPPRPWDTPCPPVYAETKHFLYSSGDKEQLRPSFLLSSL
RPSLTGARRLVETIFLGSRPWMPGTPRRLPRLPQRYWQMRPLFLELLGNHAQCPYGVLLKTHCPLRAAVT
PAAGVCAREKPQGSVAAPEEEDTDPRRLVQLLRQHSSPWQVYGFVRACLRRLVPPGLWGSRHNERRFLRN
TKKFISLGKHAKLSLQELTWKMSVRDCAWLRRSPGVGCVPAAEHRLREEILAKFLHWLMSVYVVELLRSF
FYVTETTFQKNRLFFYRKSVWSKLQSIGIRQHLKRVQLRELSEAEVRQHREARPALLTSRLRFIPKPDGL
RPIVNMDYVVGARTFRREKRAERLTSRVKALFSVLNYERARRPGLLGASVLGLDDIHRAWRTFVLRVRAQ
DPPPELYFVKVDVTGAYDTIPQDRLTEVIASIIKPQNTYCVRRYAVVQKAAHGHVRKAFKSHVSTLTDLQ
PYMRQFVAHLQETSPLRDAVVIEQSSSLNEASSGLFDVFLRFMCHHAVRIRGKSYVQCQGIPQGSILSTL
LCSLCYGDMENKLFAGIRRDGLLLRLVDDFLLVTPHLTHAKTFLRTLVRGVPEYGCVVNLRKTVVNFPVE
DEALGGTAFVQMPAHGLFPWCGLLLDTRTLEVQSDYSSYARTSIRASLTFNRGFKAGRNMRRKLFGVLRL
KCHSLFLDLQVNSLQTVCTNIYKILLLQAYRFHACVLQLPFHQQVWKNPTFFLRVISDTASLCYSILKAK
NAGMSLGAKGAAGPLPSEAVQWLCHQAFLLKLTRHRVTYVPLLGSLRTAQTQLSRKLPGTTLTALEAAAN
PALPSDFKTILD