perl - 在 Perl 中将字符串拆分为等长 block

Question

假设我有一个长度为 3 的倍数的字符串。

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

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

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

Answer 1

在How can I split a string into chunks of two characters each in Perl?查看解决方案

特别是unpack可能很有趣:

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