string - perl での文字列の配置 / 配置の一致

Question

$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";

しかし、必要に応じて機能していません。助けてください

score 2 · Accepted Answer

返されているものを確認することから始めます...おそらく、実際に含まれているindex($a,$b)を選択する必要があります!$b$a

次に、空の文字列の 10 個のインスタンスを連結すると、10 個のスペースではなく、空の文字列になることに注意してください。

score 2 · Accepted Answer

これはちょっとした楽しいエクササイズです。これは私がしました：

perl -lwe'$a="AAAA"; $b="TTTT"; $c = $a.$b; $i = index($c,$b) + length($b); 
          print $c; printf "%${i}s\n", $b;'
AAAAAAATTTT
       TTTT

一般的に言えば、変数名$aを使用する$cことは悪い考えであり、ワンライナーであるため、ここでのみ受け入れられることに注意してください。$aと$bは、で使用される予約済みの変数名でもありますsort。

2 に答える 2