Перебирать строки, хранящиеся в виде хеш-значений Perl

Question

Я создал хеш со следующим ключом: структура значений.

%multifasta = ('sequence1', ACCGTG, 'sequence2' , AGTCGTAGC, 'sequence3' , AGTCGCTAGCATAGCA)

где строки ACGT сохраняются как значения хеш-функции, а порядковый номер - как ключи хеш-функции.

Я хочу перебрать строки, хранящиеся в виде хеш-значений, чтобы подсчитать количество нуклеотидов A, C, G и T.

То, что я пробовал:

while(my($key, $value) = each %multifasta){
    print "$key\n";
    my $len = length($value);
    my $nucl;
    foreach $nucl($value){
        print "$nucl\n";
    }
}

, но вместопечатая такие значения для sequence1 в print "$nucl\n";

A
C
C
G
T
G

, это вывод на печать, например

ACCGTG 

Нужно ли преобразовывать значения в массив, а затем выполнять итерацию по массиву или Iможно перебрать строки и распечатать отдельный элемент строки?

Answer 1

Взгляните на

perldoc -fsplit

Вам нужно что-то вроде

print join("\n", split('',$value));

Answer 2

Если вы просто хотите считать символы , вам не нужно ничего делить:

my $a_count = $value =~ tr/A//;
my $c_count = $value =~ tr/C//;

и т. Д.

Answer 3

Похоже, вы хотите преобразовать строку в список отдельных символов.Функция split с пустым шаблоном выполнит это преобразование.

...
my @chars = split //, $value;
foreach my $nucl (@chars) {
    print "$nucl\n";
}