<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>