Chinaunix

标题: 请问谁有比较IP地址大小的程序阿？ [打印本页]

作者: BosCourage 时间: 2006-07-26 13:45
标题: 请问谁有比较IP地址大小的程序阿？
谢谢阿

作者: flw 时间: 2006-07-26 14:29
什么叫 IP 地址的大小？
你把问题说清楚了才好帮你。

D:\MoChou>cat ttt.pl
$ip1 = 192.168.10.10;
$ip2 = 192.168.10.20;
if ( $ip1 le $ip2 ){
print "true\n";
}
D:\MoChou>ttt
true
D:\MoChou>

复制代码

作者: BosCourage 时间: 2006-07-26 16:17
如果是如果以字符串的方式传进来
$ip1 = "255.255.255.0";
$ip2 = "55.255.23.0";
可能结果就不正确了吧

作者: flw 时间: 2006-07-26 16:23
不是可能不正确，而是一定不正确。
另外，你口中所说的“大小”是什么意思，你还是没说明白。

呵呵，看来是不愿意让我帮忙。

作者: BosCourage 时间: 2006-07-26 18:11
呵呵，不好意思一直在忙所以没有时间仔细写要求

Ip地址：a.b.c.d
比较Ip地址的大小就是
先比较两个IP的a部分，如果谁的大，那这个Ip就是叫大的Ip；
如果相等，就比较b部分；
向下走直到d部分。

作者: BosCourage 时间: 2006-07-27 09:11
顶一下好让flw看见

作者: ihere 时间: 2006-07-27 09:28
是不是可以转换成INT型再比较呵！

作者: BosCourage 时间: 2006-07-27 14:38
可以阿只是写起来麻烦所以过来问问大家
看来得自己写了

原帖由 ihere 于 2006-7-27 09:28 发表
是不是可以转换成INT型再比较呵！

作者: lovepl 时间: 2006-07-27 15:05
程序没有对某一段相等时进行处理，但大概意思就是这样了
估计程序比较复杂，期望有高手写出更简练的来

#!/usr/bin/perl
my $ip1 = "1.2.3.5";#shift;
my $ip2 = "1.2.3.6";#shift;
@list1 = split /\./,$ip1;
@list2 = split /\./,$ip2;
for (0..3){
if($list1[$_]>$list2[$_]){
print "$ip1>$ip2\n";
exit;
}
elsif($list1[$_]<$list2[$_]){
print "$ip1<$ip2\n";
exit;
}
}

复制代码

作者: clory_0 时间: 2006-08-02 19:01
可以试下这个 ^_^
my @ip = ("192.168.11.1","192.168.2.11","172.22.2.1","192.168.1.10");
my @order = sort ipsort @ip;
print "$_\n" for @order;

sub ipsort {
my ($a1,$a2,$a3,$a4) = $a =~ /(\d+).(\d+).(\d+).(\d+)/;
my ($b1,$b2,$b3,$b4) = $b =~ /(\d+).(\d+).(\d+).(\d+)/;
$a1 <=> $b1 or $a2 <=> $b2 or $a3 <=> $b3 or $a4 <=> $b4 ;
}

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)