Changes
no edit summary
<p> </p>
<p>4. Using <STDIN>, we can open the file in a perl program</p>
<p>Ex) print "Please type the filename to extract: ";</p>
<p>$DNAfilename = <STDIN>;</p>
<p>chomp $DNAfilename;</p>
<p>open(DNAFILE, $DNAfilename);</p>
<p>@FileData = <DNAFILE>;</p>
<p>close DNAFILE;</p>
<p>print @FileData;</p>
<p>exit;</p>
<h3><span style="background-color:rgb(245,245,255); color:rgb(0,0,0)">Reference</span></h3>