是朋友的来帮忙

jinandsun 2002-01-02 03:04:19

回复贴子：
回复人：　okeyes(竹子)　(2001-12-31 21:36:25) 得87分
你该去看正则表达式那一章节。我这个看了好几次都记不得
回复人：　jinandsun()　(2001-12-31 22:06:31) 得0分
明白了~浏览器的毛病在linuxforum.net这;里显示的是V 在QQ发消息里是\/看不清不好意思打扰了$result = s{.*\/(.*)}{$1}i;这个我不明白{$1}i???其实我是看了一个帖子的
有多种方法~!

有如下字符串：
/......./webst.dascom.com.cn/intraverse/........./dsb-servers

字符串中每个域以“/”号隔开，现我要取得最后一个域，此例中为dsb-server，该如何书写正则表达式

==================================
Life without end
Strive without end

标题 Re: 如何书写这个正则表达式？ [re: felee]
作者 iROB (stranger )
时间 11/30/01 08:11 PM

$a = "/......./webst.dascom.com.cn/intraverse/........./dsb-servers";
@array = split("/",$a);
$b = pop(@array);
print $b;

Hi, I am Perl newbie... :-)

标题 Re: 如何书写这个正则表达式？ [re: felee]
作者 GDD (enthusiast)
时间 11/30/01 09:14 PM

$foo = "/......./webst.dascom.com.cn/intraverse/........./dsb-servers";
($result) = $foo =~ /([^\/]+)$/;
print "$result";

标题 Re: 如何书写这个正则表达式？ [re: iROB]
作者小高 (journeyman)
时间 11/30/01 09:51 PM

$result = s{.*\/(.*)}{$1}i;

标题 Re: 如何书写这个正则表达式？ [re: felee]
作者 changxing (journeyman)
时间 11/30/01 11:22 PM

/.+\//
$' 就是你想要的(双引号下面那个')
贪婪模式，嘻嘻
Thank you! 8-)

标题 Re: 如何书写这个正则表达式？ [re: felee]
作者 felee (member)
时间 12/01/01 10:31 AM

非常感谢你们

==================================
Life without end
Strive without end

回复人：　jinandsun()　(2002-1-1 10:50:36) 得0分
$result = s{.*\/(.*)}{$1}i 这里的i 起什么作用啊？

...全文