正则判断字符串重复

suntoltti

例如，aaaaaaaaaaaa

/^(.)$1+$/ 不行

infernor

例如，aaaaaaaaaaaa

/^(.)$1+$/ 不行
suntoltti 发表于 2011-02-26 20:39

    /^(.)\1+$/

兰花仙子

例如，aaaaaaaaaaaa

/^(.)$1+$/ 不行
suntoltti 发表于 2011-02-26 20:39

    随手写了个：

1. my $x="ababbc";
   
2. if ($x=~/(\w)(?=\1)/) {
   
3.    print "1\n";
   
4. }

复制代码

suntoltti

谢

bluewaterray

正则里面用 ‘\'， 外面才是’$'

x9x9

可以参考这里：
http://bbs.chinaunix.net/viewthr ... p;extra=&page=1

justlooks

1. 
   
2. echo "aaaaa"|perl -ne '$num=()=/\G(.)$1/g;print $num,"\n";'
   
3. 5
   

复制代码

suntoltti

回复 7# justlooks

? 你要说明什么

justlooks

回复 8# suntoltti

不好意思，看错题目了，不过楼主说的也不清楚，什么样才算重复字符串？

suntoltti

回复  suntoltti

不好意思，看错题目了，不过楼主说的也不清楚，什么样才算重复字符串？
justlooks 发表于 2011-03-01 08:39

echo "abc"|perl -ne '$num=()=/\G(.)$1/g;print $num,"\n";'
3


这样的结果呢