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

<p><span style="font-size:14px"><strong><em>&nbsp;My input file is TERT protein sequence, and its reverse output printed in &quot;reverse_TERTseq.fasta&quot;</em>:&nbsp;</strong></span></p>

<p>---------------------------------------------------------------------------------------------------------------<br />
#!/usr/bin/perl<br />
use strict;<br />
use warnings;</p>

<p>&nbsp;open(FILE, &quot;&lt;sequence.fasta&quot;) or die &quot;Can&#39;t open the file: $_\n&quot;;<br />
&nbsp;open(OUT, &quot;&gt;&gt;reverse_TERTseq.fasta&quot;) or die &quot;Can&#39;t open the filse: $_\n&quot;;<br />
<strong>&nbsp;while (my $file = &lt;FILE&gt;){</strong><br />
&nbsp;<strong>$file = reverse $file;<br />
&nbsp;print OUT &quot;$file&quot;;</strong><br />
}</p>

<p>----------------------------------------------------------------------------------------------------------------<br />
&nbsp;</p>

<p>In another folder by name &quot;sequence.fasta&quot;, I have saved TERT amino acid sequence:&nbsp;</p>

<p>&nbsp;&gt;NP_937983.2 telomerase reverse transcriptase isoform 1 [Homo sapiens]<br />
MPRAPRCRAVRSLLRSHYREVLPLATFVRRLGPQGWRLVQRGDPAAFRALVAQCLVCVPWDARPPPAAPS<br />
FRQVSCLKELVARVLQRLCERGAKNVLAFGFALLDGARGGPPEAFTTSVRSYLPNTVTDALRGSGAWGLL<br />
LRRVGDDVLVHLLARCALFVLVAPSCAYQVCGPPLYQLGAATQARPPPHASGPRRRLGCERAWNHSVREA<br />
GVPLGLPAPGARRRGGSASRSLPLPKRPRRGAAPEPERTPVGQGSWAHPGRTRGPSDRGFCVVSPARPAE<br />
EATSLEGALSGTRHSHPSVGRQHHAGPPSTSRPPRPWDTPCPPVYAETKHFLYSSGDKEQLRPSFLLSSL<br />
RPSLTGARRLVETIFLGSRPWMPGTPRRLPRLPQRYWQMRPLFLELLGNHAQCPYGVLLKTHCPLRAAVT<br />
PAAGVCAREKPQGSVAAPEEEDTDPRRLVQLLRQHSSPWQVYGFVRACLRRLVPPGLWGSRHNERRFLRN<br />
TKKFISLGKHAKLSLQELTWKMSVRDCAWLRRSPGVGCVPAAEHRLREEILAKFLHWLMSVYVVELLRSF<br />
FYVTETTFQKNRLFFYRKSVWSKLQSIGIRQHLKRVQLRELSEAEVRQHREARPALLTSRLRFIPKPDGL<br />
RPIVNMDYVVGARTFRREKRAERLTSRVKALFSVLNYERARRPGLLGASVLGLDDIHRAWRTFVLRVRAQ<br />
DPPPELYFVKVDVTGAYDTIPQDRLTEVIASIIKPQNTYCVRRYAVVQKAAHGHVRKAFKSHVSTLTDLQ<br />
PYMRQFVAHLQETSPLRDAVVIEQSSSLNEASSGLFDVFLRFMCHHAVRIRGKSYVQCQGIPQGSILSTL<br />
LCSLCYGDMENKLFAGIRRDGLLLRLVDDFLLVTPHLTHAKTFLRTLVRGVPEYGCVVNLRKTVVNFPVE<br />
DEALGGTAFVQMPAHGLFPWCGLLLDTRTLEVQSDYSSYARTSIRASLTFNRGFKAGRNMRRKLFGVLRL<br />
KCHSLFLDLQVNSLQTVCTNIYKILLLQAYRFHACVLQLPFHQQVWKNPTFFLRVISDTASLCYSILKAK<br />
NAGMSLGAKGAAGPLPSEAVQWLCHQAFLLKLTRHRVTYVPLLGSLRTAQTQLSRKLPGTTLTALEAAAN<br />
PALPSDFKTILD</p>