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

发布时间：2020-12-15 23:29:42 所属栏目：大数据来源：网络整理

导读：假设我的长度为3的倍数. my $seq = "CTTCGAATT"; # in this case length of 9 有没有办法可以把它分成等长3？这样到底我有这个数组： $VAR = ["CTT","CGA","ATT"]; 解决方法在 How can I split a string into chunks of two characters each in Perl?查看

假设我的长度为3的倍数.

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

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

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

解决方法

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

特别是unpack可能很有趣：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!