ip提取问题！

zw2002

$opt_m=10.210.10.137/10.210.10135

想把两个ip提出来给数组！
my @arystrResult = $opt_m =~m/？$/g;

zw2002

@arystrResult = $opt_m =~m/^(\d+\.\d+\.\d+\.\d+).*?(\d+\.\d+\.\d+\.\d+)/s;

不知道还有没有好法，这个只能实现两个ip的，要实现多个ip的怎么处理呢？

apile

while($opt_m=~/(\d+\.\d+\.\d+\.\d+)/g){
    push(@arystrResult,$1);
}
沒degub過..try it..

zw2002

ok!
非常感谢，三行程序，看出自己的差距了！

angleeye

原帖由 zw2002 于 2005-11-30 15:10 发表
@arystrResult = $opt_m =~m/(\d+\.\d+\.\d+\.\d+).*?(\d+\.\d+\.\d+\.\d+)/s;

不知道还有没有好法，这个只能实现两个ip的，要实现多个ip的怎么处理呢？

@arystrResult = ($opt_m =~m/(\d+\.\d+\.\d+\.\d+)/g);

Osment

原帖由 apile 于 2005-11-30 15:27 发表
while($opt_m=~/(\d+\.\d+\.\d+\.\d+)/g){
    push(@arystrResult,$1);
}
沒degub過..try it..

应该 用 s///; 不然死循环了吧？

apile

没有喔....我後来试过了..其实我写的就等於angleeye写的...

Osment

原帖由 apile 于 2005-12-1 16:57 发表
没有喔....我後来试过了..其实我写的就等於angleeye写的...

呵呵。我也没有debug，只是看代码。

尚风

又学习了一招,谢谢

beckheng

good.

[ 本帖最后由 beckheng 于 2005-12-6 16:41 编辑 ]