Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl –w
print "\n\nPlease type the filename: ";
$DNAfilename = <STDIN>;
...
while($DNA=~ /C/ig){$C++}
while($DNA=~ /[^ATGC]/ig){$e++}
. . . .