在 Perl 中将字符串分割成等长的块

Question

假设我的字符串长度是 3 的倍数。

my $seq = "CTTCGAATT"; # in this case length of 9

有没有办法可以将它分成等长的 3？ 这样最后我就有了这个数组：

$VAR = ["CTT", "CGA", "ATT"];

Answer 1

迭代三的倍数，使用 substr 获取要push 到列表中的片段。

Answer 2

my $str = join '', map { ('A','T','C','G')[ rand 4 ] } 0 .. 900 ; # Random string

my @codons = $str =~ /[ACTG]{3}/g;   # Process in chunks of three
                                     # '/g' flag necessary

print 'Size of @codons array : ',
        scalar @codons;              # '300'

Answer 3

my $str='ABCDEFGHIJKLM';

我们可以使用字符串匹配从字符串中获取部分，其中最小长度为 1，最大长度为所需长度，3 或 4 或其他

@parts = $str =~ /(.{1,4})/g; 我们得到@parts = ['ABCD', 'EFGH', 'IJKL', 'M']

Answer 4

看看如何在 Perl 中将字符串拆分为每个包含两个字符的块？ 的解决方案，

尤其是 unpack 可能会很有趣：

my @codons = unpack("(A3)*", $seq);