在Perl中将字符串拆分为等长块

前端之家收集整理的这篇文章主要介绍了在Perl中将字符串拆分为等长块前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
假设我的长度为3的倍数.

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

有没有办法可以把它分成等长3?
这样到底我有这个数组:

$VAR = ["CTT","CGA","ATT"];
@H_404_21@解决方法
How can I split a string into chunks of two characters each in Perl?查看解决方

特别是unpack可能很有趣:

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

猜你在找的Perl相关文章