我怎样才能把N放在最后的字符串中

Question

我是perl的初学者所以我在编写脚本时遇到了一些问题。 我想要一个脚本，将字母N放置一定次数，并以我之前检查的长度为基础。这个Ns必须位于.txt内的字符串的最后。这个字符串以>开头并且具有'face'：

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
}

谢谢，抱歉我的英语不好。

Answer 1

非修饰符if必须括在括号中的条件。变量必须以sigil开头（N没有）。 Perl中没有in运算符。

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