新手求助perl代码

2025-05-20 03:12:12

推荐回答（2个）

回答（1）：

$str="";
if ($str=/([a-z]+)([A-Z]+)([a-z]+)/)
{
$num++;
printf("I%03d$1$3",$num);
printf("E%03d$2",$num);

push @A,$2;
}
if ($#A){print "E000", join("",@A);}
自己改下往文件读写的过程。。

回答（2）：

很简单，正则表达式匹配进行删除和抓取，之后输出就好了
过程有复杂，不过至少看起来很简单，你自己弄一下吧，
正则表达式网上一大堆教程，你自己学一下好了