匹配连续的任意字词
#!/usr/bin/perl
@lines=("1.65abcabcdabcacdfasasasdfg31abcabc2\n","2.acacjhdcdf\n","3.8gfhgoodgoodadf\n","4.abcde123\n","5.asdawababcccccc我是我是\n");
foreach(@lines){
if ($_=~/(.+)\1*/)
{
s/(.+)\1*/($1)(\U$&)/g;
print;
}
}
@lines=("1.65abcabcdabcacdfasasasdfg31abcabc2\n","2.acacjhdcdf\n","3.8gfhgoodgoodadf\n","4.abcde123\n","5.asdawababcccccc我是我是\n");
foreach(@lines){
if ($_=~/(.+)\1*/)
{
s/(.+)\1*/($1)(\U$&)/g;
print;
}
}