如何用正则表达式来删除字符串里面的一个<input>元素？？急！！！
字符串如下，想删除“ <INPUT TYPE=BUTTON VALUE= '预订 ' onclick=javascript:onBooking( 'eLong ', '40101001 ', '0016 ', '0 '); CLASS=eButton> ”，我这里有个表达式

$s =~s/ <input[^> ]*\/?> //img;
结果是没有删除，找不出原因，会不会是里面有\r\n的缘故？

我在之前用这个表达式删除 $s=~/\r?\n//img;也还是不行

高手指点一下


<TD CLASS=PRICEROW ALIGN=CENTER style= 'width:6%; ' NOWRAP> <FONT SIZE=-2 CLASS=smallPrice> 580 </FONT> </TD> <TD CLASS=PRICEROW ALIGN=CENTER style= 'width:10%; ' > <INPUT TYPE=BUTTON VALUE= '预订 ' onclick=javascript:onBooking( 'eLong ', '40101001 ', '0016 ', '0 '); CLASS=eButton> </TD> <tr> <td CLASS=PRICEROW ROWSPAN=1 > <FONT SIZE=-2 CLASS=smallPrice> 高级标间 </FONT>

[解决办法]
$s =~s/ <input[^> ]*> //img;

[解决办法]
感觉你的写法也是可以的。

最好给出一个完整的Perl脚本说明你的问题，把测试用例也写在里面。

[解决办法]
#是呀,我测试也没问题呀.

#!/usr/bin/perl -w

$str= " <TD CLASS=PRICEROW ALIGN=CENTER style= 'width:6%; ' NOWRAP> <FONT SIZE=-2 CLASS=smallPrice> 580 </FONT> </TD> <TD CLASS=PRICEROW ALIGN=CENTER style= 'width:10%; ' > <INPUT TYPE=BUTTON VALUE= '预订 ' onclick=javascript:onBooking( 'eLong ', '40101001 ', '0016 ', '0 '); CLASS=eButton> </TD> <tr> <td CLASS=PRICEROW ROWSPAN=1 > <FONT SIZE=-2 CLASS=smallPrice> 高级标间 </FONT> ";
if ($str=~/ <input[^> ]*\/?> /im)
{
print "$& ";
}

#结果
> <INPUT TYPE=BUTTON VALUE= '预订 ' onclick=javascript:onBooking( 'eLong ', '40101001 ', '0016 ', '0 '); CLASS=eButton>