如何编写可以生成随机 DNA 序列的 Perl 函数 [关闭]

Question

我想使用 rand() 函数编写一个 Perl 子例程，该函数生成一个指定长度为 n 的随机 DNA 序列。序列的长度 n 作为参数传递给子例程。 如果有人可以帮助我，我将不胜感激，因为我是 perl 的初学者。

Answer 1

仅供参考，通常你会放任何你迄今为止尝试过的东西，Stack Overflow 不是代码编写服务。

考虑到这一点，在我看来，最好的方法是使用 Perl 的 rand 函数：

#!/usr/bin/env perl

use strict; use warnings;
use autodie ':all';
use feature 'say';

my @letters = qw(A C G T);

sub random_DNA {
    my $length = shift;
    my $seq = '';
    foreach my $n (1..$length) {
        $seq .= $letters[rand(4)]
    }
    return $seq
}

foreach my $length (1..9) {
    say random_DNA($length)
}

哪个输出

con@V:~/Scripts$ perl random_DNA.pl
T
TT
TGG
TGTC
ATGAC
AACGAG
CGGGGTT
CCGTCGTC
TGGCCTCGA

当然，您的输出可能与此不同，因为这是一个随机函数。如果可以避免使用模块，我宁愿不使用它们，以避免可移植性问题，尤其是对于需要花费一分钟时间编写的任务，例如这个。