$dna1 と $dna2 の 2 つの文字列があります。2 つの文字列を連結されたものとして出力し、連結された文字列の最後に 2 番目の文字列をそのコピーの上に並べて出力します。たとえば、入力文字列が AAAA と TTTT の場合、次のように出力します。
AAAATTTT
TTTT
これは自習用の質問です。宿題ではありません。
インデックス #!/usr/bin/perl -w を使ってみた
$a ='AAAAAAAAAATTTTTTTTT';
$b ='TTTTTTTTTT';
print $a,"\n";
print ''x index($a,$b),$b,"\n";
しかし、必要に応じて機能していません。助けてください