正則表達式無法生效

wind_ch

將 http://www.a.com//file//index.html 轉(zhuǎn)換成正常的, 有人提供如下方法:

@urls=qw(         http://www.a.com/file/in.html         http://www.a.com//big-dash-dash/in.html         ); foreach (@urls){   m#^[^/]//#;                    s#\G//#/#g;   print $_,"\n"; }

但我自己運行都不好用, 而且我覺得應(yīng)該吧 m#^[^/]//# 寫成 m#^[^/]+?//#, 也不行.
是什么原因呢?

blackold

foreach (@urls) {
  s#(?<!:)//#/#g;
  print "$_\n";
}

wind_ch

黑哥的方法是生效的,  
s#([\-\.\w]+)//#$1/#g; 也可以. (作者提供的另一種方法)

但按作者的意圖, 他想在匹配到第一個//之後, 再把後面的//替換掉.
但是\G好像起不到作用.

我現(xiàn)在郁悶的是, 我不知道是他勘誤, 還是我運行的環(huán)境不對頭, 而且, 按他的思路, 我看他程序都不對.

[ 本帖最后由 wind_ch 于 2009-12-24 15:15 編輯 ]

wind_ch

Happy Christmas! 並且拿鏈接頂一下
http://stason.org/TULARC/webmaster/myfaq.html#2

blackold

那樣寫肯定是錯誤的嘛。

要修改。

wind_ch

我改成自認為正確的也不行.

"吧 m#^[^/]//# 寫成 m#^[^/]+?//#, 也不行."

另外上面給的鏈接, 新人可以學(xué)一哈.

yybmsrs

原帖由 wind_ch 于 2009-12-24 15:12 發(fā)表
黑哥的方法是生效的,  
s#([\-\.\w]+)//#$1/#g; 也可以. (作者提供的另一種方法)

但按作者的意圖, 他想在匹配到第一個//之後, 再把後面的//替換掉.
但是\G好像起不到作用.

我現(xiàn)在郁悶的是, 我不知道是他 ...

我運行出來的結(jié)果：
http://www.a.com/file/in.html
http://www.a.com//big-dash-dash/in.html

是沒改變

wind_ch

其實黑哥的方法也不錯了， 而且還好記。
但是作者提供的兩種方法中說一個比另一個的效率高很多。而那個高效的方法我卻不能跑！

黑哥(s#(?<!: )//#/#g; )
=> timethis 50000: 17 wallclock secs ( 2.28 usr +  1.27 sys =  3.55 CPU) @ 14084.51/s (n=50000)
不能跑的(m#^[^/]//#;                 
             s#\G//#/#g;  )
=> timethis 50000: 15 wallclock secs ( 1.35 usr +  1.08 sys =  2.43 CPU) @ 20576.13/s (n=50000)
作者另一個(s#([\-\.\w]+)//#$1/#g; )
=> timethis 50000:  9 wallclock secs ( 2.38 usr +  0.68 sys =  3.06 CPU) @ 16339.87/s (n=50000)

[ 本帖最后由 wind_ch 于 2009-12-25 21:04 編輯 ]

blackold

應(yīng)該是這樣才對吧：

@urls=qw(
http://www.a.com/file/in.html
http://www.a.com//big-dash-dash/in.html
http://www.a.com//big-dash-dash//in.html
);

foreach (@urls) {            
    s#\G//#/# while m#/[^/]+#g;
    print $_,"\n";
}

[ 本帖最后由 blackold 于 2009-12-26 19:24 編輯 ]

wind_ch

感謝黑哥!
但我感覺還是有些疑問.
待我把正則表達式好好搞一下, 再來請教.