亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 正則判斷字符串重復 [打印本頁]
作者: suntoltti    時間: 2011-02-26 20:39
標題: 正則判斷字符串重復
本帖最后由 suntoltti 于 2011-02-26 20:43 編輯

例如，aaaaaaaaaaaa

/^(.)$1+$/ 不行
作者: infernor    時間: 2011-02-26 21:12
例如，aaaaaaaaaaaa

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



    /^(.)\1+$/
作者: 蘭花仙子    時間: 2011-02-26 21:18
例如，aaaaaaaaaaaa

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



    隨手寫了個：
  1. my $x="ababbc";
  2. if ($x=~/(\w)(?=\1)/) {
  3.    print "1\n";
  4. }
復制代碼
作者: suntoltti    時間: 2011-02-26 21:18
謝
作者: bluewaterray    時間: 2011-02-27 10:15
正則里面用 ‘\'， 外面才是’$'
作者: x9x9    時間: 2011-02-27 13:34
可以參考這里：
http://www.72891.cn/viewthr ... p;extra=&page=1
作者: justlooks    時間: 2011-02-28 16:31

  2. echo "aaaaa"|perl -ne '$num=()=/\G(.)$1/g;print $num,"\n";'
  3. 5
復制代碼
作者: suntoltti    時間: 2011-02-28 17:05
回復 7# justlooks

? 你要說明什么
作者: justlooks    時間: 2011-03-01 08:39
回復 8# suntoltti

不好意思，看錯題目了，不過樓主說的也不清楚，什么樣才算重復字符串？
作者: suntoltti    時間: 2011-03-01 09:55
回復  suntoltti

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


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


這樣的結(jié)果呢
作者: justlooks    時間: 2011-03-01 13:08
回復 10# suntoltti


    首先什么你得說清楚什么才是重復的字符串

　　　aaaa? 那么我abab呢　abceabc呢？
作者: seufy88    時間: 2011-03-01 13:46
$_="aaaaaaa";
$str=substr($_,0,1);
while(/(.)/g){
     if($str eq $1){
          next;
        }else{
        print "failed";
        last;
        }
}
作者: suntoltti    時間: 2011-03-01 16:58
回復  suntoltti


    首先什么你得說清楚什么才是重復的字符串

　　　aaaa? 那么我abab呢　abceab ...
justlooks 發(fā)表于 2011-03-01 13:08



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


沒看到嗎？ 你的正則輸入abc，輸出3。 你的意思是abc也是重復的嗎？

我認為你是故意來逗樂的
作者: 珞水的大叔    時間: 2011-03-01 17:09
又是這個問題啊，呵呵
  1. my $lala = 'aaaaaaaaaaaaaaaa';
  2. $lala =~ /^(.)(.*)$/;
  3. if($lala eq $2.$1){
  4.     print "Y\n";
  5. }
復制代碼




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2