Як я можу поставити N в мою заключну струну - perl, bioinformatics

Я початківець в Перлі, так що у них є деякі проблеминаписання сценарію. Я хочу, щоб сценарій розміщував букву N певну кількість разів із основою в довжину, яку я попередньо перевіряв. Ці Ns повинні бути у фіналі рядка всередині .txt. Цей рядок починається з а > і мати це "обличчя":

A1_23ABR2014_53_CC07.P10R_E07_009.ab1

attgccttttgctagcttatagaataataattcatataaacaaaaaatat
tttatattatttaaaaataaataaaccaaataaagtcattgttgatccaa
ttgaacaaatcatattccatccatttaaagcgtctggataatcaggaata
cgtctaggcattacattaaatccaagaaaatgcataggtaagaatgttaa

Я вже писав це, але не знаю, як робити далі.

if $qend > $sendi{
my $leg1 = $qendi - $sendi;
open(my @final, ">>", "contiggeral.fasta") or die;
while (N < $leg1) {
do N++ in @nomecontig
}

Спасибі та вибачте за мій поганий англійський.

Відповіді:

Умова, якщо не є модифікатором if повинні бути укладені в дужки. Змінні повинні починатися із сигілу (у N немає). Немає in оператор в Perl.

my $string = "abc";
my $final_length = 20;
$string .= "N" x ($final_length - length $string);
print $string, "n";