perl语言 匹配变量

2024-12-13 20:52:25
推荐回答(2个)
回答1:

$string="augcbayumuaa";#$string为那段很长的字符串
@array=$string=~/\w{3}/g;
print "@array\n";

输出结果:
aug
cba
yum
uaa

比如要调用第一个密码子的话,$array[0]。
foreach(@array){...}来遍历所有密码子。

回答2:

楼上做的不错