Perl 如何放置N'；这是我的最后一串

我是perl的初学者，所以我在编写脚本时遇到了一些问题。 我想要一个脚本，把字母N放在我之前检查的长度的基础上一个特定的次数。此Ns必须位于.txt中字符串的结尾。此字符串以

开头，并具有该“面”：

A1\U 23ABR2014\U 53\U CC07.P10R\U E07\U 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
}

如果$qend>$sendi{
my$leg1=$qendi-$sendi；
打开（my@final，“>>”，“contiggeral.fasta”）或死亡；
而（N<$leg1）{
在@nomecontig中不使用N++
}

---

感谢并为我糟糕的英语感到抱歉。

条件if non-modifier

if

必须用括号括起来。变量必须以sigil开头（N没有）。Perl中的

运算符中没有

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