View source for SeungWon Lee Perl HW

<p>Q.write&nbsp;a&nbsp;simple&nbsp;program&nbsp;to&nbsp;open&nbsp;and&nbsp;write&nbsp;a&nbsp;FASTA&nbsp;file&nbsp;with&nbsp;the&nbsp;content<br />
below:<br />
<br />
&gt;Your_first_seq<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA</p>

<p>&nbsp;</p>

<p>A1. the perl code</p>

<blockquote>
<p>use warnings;<br />
use strict;</p>

<p>open my $fh, &#39;&gt;&#39;, &#39;fasta.txt&#39;;</p>

<p>print &quot;enter your fasta file name\n&quot;;<br />
my $seqname = &lt;&gt;;<br />
print $fh &#39;&gt;&#39;. &quot;$seqname&quot;;</p>

<p>print &quot;enter your fasta sequence(to end inputing sequence, hit 0 and enter)\n&quot;;<br />
while (my $line = &lt;STDIN&gt;) {<br />
&nbsp; &nbsp; last if $line =~ &#39;^0$&#39;;<br />
&nbsp; &nbsp; print $fh $line;<br />
}</p>

<p>close $fh;</p>

<p>print &quot;done\n&quot;;</p>
</blockquote>

<p>&nbsp;</p>

<p>download the code&nbsp;<a href="/ckfinder/userfiles/files/fasta_code.txt">/ckfinder/userfiles/files/fasta_code.txt</a></p>

<p>the .pl format can&#39;t upload, so I change pl to txt. when you open the file, you have to save as .pl</p>

<p>A2. Running in consol</p>

<p><img alt="" src="/ckfinder/userfiles/images/fasta(1).png" style="height:190px; width:649px" /></p>

<p>A3. result file</p>

<blockquote>&gt;Your_first_seq<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA<br />
ATATATATATATATATAATATATATATATATATAATATATATATATATATAATATATATATATATATA
<p>&nbsp;</p>
</blockquote>

<p>the file name is fasta.txt (format is txt)&nbsp;</p>

<p>download file :&nbsp;<a href="/ckfinder/userfiles/files/fasta.txt">/ckfinder/userfiles/files/fasta.txt</a></p>