正则表达式无法生效

wind_ch

将 http://www.a.com//file//index.html 转换成正常的, 有人提供如下方法:

@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"; }

但我自己运行都不好用, 而且我觉得应该吧 m#^[^/]//# 写成 m#^[^/]+?//#, 也不行.
是什么原因呢?

blackold

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

wind_ch

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

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

我现在郁闷的是, 我不知道是他勘误, 还是我运行的环境不对头, 而且, 按他的思路, 我看他程序都不对.

[ 本帖最后由 wind_ch 于 2009-12-24 15:15 编辑 ]

wind_ch

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

blackold

那样写肯定是错误的嘛。

要修改。

wind_ch

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

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

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

yybmsrs

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

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

我现在郁闷的是, 我不知道是他 ...

我运行出来的结果：
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

应该是这样才对吧：

@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

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