会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
Cpper
C++、Python、Perl
博客园
首页
新随笔
联系
管理
订阅
匹配连续的任意字词
#
!/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
;
}
}
posted @
2009-09-20 00:19
ChenLu
阅读(
169
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告