perl正则表达式perl，正则表达式修改文件

perl 正则表达式赋值

不知道你说的赋值是什么意思,如果是需要把中间这个赋值的话，可以用小括号把需要赋值地方括起来，在通过 $1来来访问，也可以赋值给数组，如： my @par=$s=~/^AUG(.*)(UUU|UAA)$/gs 这个$par[0]就是括号的值了。

perl，正则表达式修改文件

use?warning； my?$xxxx；????????????#设置初始变量 open?xxx?；???????????#怎么打开文件，自己看书吧 while（<$文件变量>）???????#这个就是遍历文件的每一行 {??????????????????????????? #使用正则表达式+if语句，思路：如果在开头能匹配到任意字符，则输出匹配到的内容。

$&?if?（/^./,$_）;??????? #大概是这个意思，记不太清，$_默认变量，代表每一行的内容，你自己查小骆驼，书上这些基础知识点都有，这道题是最基本的了 } close?$xxx;???????????#关闭句柄