29 lines
800 B
Perl
29 lines
800 B
Perl
use strict;
|
|
use warnings;
|
|
use feature 'say';
|
|
|
|
my %cnt;
|
|
my $total = 0;
|
|
|
|
while ($_ = <DATA>) {
|
|
chomp;
|
|
printf "%4d: %s\n", $total+1, s/(.{10})/$1 /gr;
|
|
$total += length;
|
|
$cnt{$_}++ for split //
|
|
}
|
|
|
|
say "\nTotal bases: $total";
|
|
say "$_: " . ($cnt{$_}//0) for <A C G T>;
|
|
|
|
__DATA__
|
|
CGTAAAAAATTACAACGTCCTTTGGCTATCTCTTAAACTCCTGCTAAATG
|
|
CTCGTGCTTTCCAATTATGTAAGCGTTCCGAGACGGGGTGGTCGATTCTG
|
|
AGGACAAAGGTCAAGATGGAGCGCATCGAACGCAATAAGGATCATTTGAT
|
|
GGGACGTTTCGTCGACAAAGTCTTGTTTCGAGAGTAACGGCTACCGTCTT
|
|
CGATTCTGCTTATAACACTATGTTCTTATGAAATGGATGTTCTGAGTTGG
|
|
TCAGTCCCAATGTGCGGGGTTTCTTTTAGTACGTCGGGAGTGGTATTATA
|
|
TTTAATTTTTCTATATAGCGATCTGTATTTAAGCAATTCATTTAGGTTAT
|
|
CGCCGCGATGCTCGGTTCGGACCGCCAAGCATCTGGCTCCACTGCTAGTG
|
|
TCCTAAATTTGAATGGCAAACACAAATAAGATTTAGCAATTCGTGTAGAC
|
|
GACCGGGGACTTGCATGATGGGAGCAGCTTTGTTAAACTACGAACGTAAT
|