Member 13298024 Ответов: 1

Как извлечь элементы после завершения цикла for в коде Perl.

use strict;
 se warnings; # syntax is use ???
use feature qw( say );
 
my @aa = ("A", "C", "D", "E", "F", "G", "H", "I", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "Y");

my $pair;
for my $n1 (@aa) {
   for my $n2 (@aa) {
     $pair = $n1 . $n2;    
        	   
   }
}
my $k1=split("' '", $pair);
print $k1;


Что я уже пробовал:

# это 20 аминокислот, и я должен сделать 400 возможных комбинаций из двух
# аминокислоты(Ди аминокислоты) такой: АА, АС объявлений ...... КАЛИФОРНИЯ ГК КР СЕ СР СГ.....Я.....Гг
# объем цикла" for " уменьшается # когда он заканчивается.почему он заканчивается только там, так как я сделал переменную $pair глобальной #только два Y в качестве вывода

1 Ответов

Рейтинг:
2

KarstenK

это назначение перезаписывает все более старые назначения:

$pair = $n1 . $n2;

возможное решение может выглядеть так:
my $pair = ""; #init as empty string

# in the loop: append result string on the previous reuslt and append white space 
$pair .=  $n1 . $n2 . " ";