<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.3354" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2>奇怪了, 我的就通不过了. 环境跟你的一样. </FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>我再试试. </FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 9pt 宋体">----- Original Message ----- </DIV>
<DIV style="BACKGROUND: #e4e4e4; FONT: 9pt 宋体; font-color: black"><B>From:</B>
<A title=fengpxu@gmail.com href="mailto:fengpxu@gmail.com">fengpxu fengpxu</A>
</DIV>
<DIV style="FONT: 9pt 宋体"><B>To:</B> <A title=china-pm@pm.org
href="mailto:china-pm@pm.org">china-pm@pm.org</A> </DIV>
<DIV style="FONT: 9pt 宋体"><B>Sent:</B> Saturday, July 05, 2008 11:06 AM</DIV>
<DIV style="FONT: 9pt 宋体"><B>Subject:</B> Re: [PerlChina] perl 正则表达式</DIV>
<DIV><BR></DIV>
<P>my $str = '/Book/LN/16.aspx古典仙侠';</P>
<P>print $1,$2 if $str =~/\/Book\/LN\/(\d+).aspx(.*)/;</P>
<DIV>print 'ok';</DIV>
<DIV> </DIV>
<DIV>16古典仙侠ok</DIV>
<DIV> </DIV>
<DIV>windows xp sp2 perl 5.8.8 通过。<BR><BR></DIV>
<DIV class=gmail_quote>2008/7/5 张晓亮 <<A
href="mailto:alaboszhang@gmail.com">alaboszhang@gmail.com</A>>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV bgcolor="#ffffff">
<DIV><FONT size=2>各位:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> 有类似如下字符串:</FONT></DIV>
<DIV><FONT size=2> </FONT><FONT
size=2>Book/LN/16.aspx古典仙侠</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> </FONT></DIV>
<DIV><FONT size=2> 用:
<DIV><FONT size=2> print $1 if $str
=~/\/Book\/LN\/(\d+).aspx/;</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> 这样可以得到
16</FONT></DIV></FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> 用:</FONT></DIV>
<DIV><FONT size=2> print $1,$2 if $str
=~/\/Book\/LN\/(\d+).aspx(.*)/;</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> 这样不能得到 $2</FONT></DIV>
<DIV><FONT size=2> </FONT></DIV>
<DIV><FONT size=2> 请问这个正则该如何修改?</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>aj</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> </FONT><FONT
size=2></FONT></DIV></DIV><BR>_______________________________________________<BR>China-pm
mailing list<BR><A href="mailto:China-pm@pm.org">China-pm@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/china-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/china-pm</A><BR></BLOCKQUOTE></DIV><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>China-pm mailing
list<BR>China-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/china-pm</BLOCKQUOTE></BODY></HTML>