Блог

Я новичок в perl, поэтому у меня возникли некоторые проблемы с написанием сценария. Мне нужен скрипт, который помещал букву N определенное количество раз с основанием в длину, которую я ранее проверял. Это N должно быть в финале строки внутри .txt. Эти строки начинаются с a > и имеют это «лицо»:

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 его нет). В Perl нет in оператора.

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