Question

perl语言 匹配变量

比如我有一段很长的字符串，不知道长度，3个一组以aug开头，uaa或 ubc结尾，用正则表达式怎么赋值 给每三个表示一个变量 如aug是$1 序列像这样augcbayum..........uaa 或者ubc结尾。

Answer 1

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

输出结果：
aug
cba
yum
uaa

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

Answer 2

楼上做的不错