perl - 如何将 N 放入最后的字符串中

Question

我是 Perl 初学者，所以在编写脚本时遇到一些问题。 我想要一个脚本，将字母 N 放置一定次数，并以我之前检查过的长度为基础。该 N 必须位于 .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 非修饰符 if 必须括在括号内。变量必须以印记开头(N 没有)。 Perl 中没有 in 运算符。

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