正則判斷字符串重復(fù)

suntoltti

例如，aaaaaaaaaaaa

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

infernor

例如，aaaaaaaaaaaa

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

    /^(.)\1+$/

蘭花仙子

例如，aaaaaaaaaaaa

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

    隨手寫(xiě)了個(gè)：

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

復(fù)制代碼

suntoltti

謝

bluewaterray

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

x9x9

可以參考這里：
http://www.72891.cn/viewthr ... p;extra=&page=1

justlooks

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

復(fù)制代碼

suntoltti

回復(fù) 7# justlooks

? 你要說(shuō)明什么

justlooks

回復(fù) 8# suntoltti

不好意思，看錯(cuò)題目了，不過(guò)樓主說(shuō)的也不清楚，什么樣才算重復(fù)字符串？

suntoltti

回復(fù)  suntoltti

不好意思，看錯(cuò)題目了，不過(guò)樓主說(shuō)的也不清楚，什么樣才算重復(fù)字符串？
justlooks 發(fā)表于 2011-03-01 08:39

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


這樣的結(jié)果呢