请问谁有比较IP地址大小的程序阿？

BosCourage

谢谢阿

flw

什么叫 IP 地址的大小？
你把问题说清楚了才好帮你。

1. D:\MoChou>cat ttt.pl
   
2. $ip1 = 192.168.10.10;
   
3. $ip2 = 192.168.10.20;
   
4. 
   
5. if ( $ip1 le $ip2 ){
   
6.     print "true\n";
   
7. }
   
8. 
   
9. D:\MoChou>ttt
   
10. true
    
11. 
    
12. D:\MoChou>

复制代码

BosCourage

如果是如果以字符串的方式传进来
$ip1 = "255.255.255.0";
$ip2 = "55.255.23.0";
可能结果就不正确了吧

flw

不是可能不正确，而是一定不正确。
另外，你口中所说的“大小”是什么意思，你还是没说明白。

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

BosCourage

呵呵，不好意思 一直在忙 所以没有时间仔细写要求

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

BosCourage

顶一下 好让flw看见

ihere

是不是可以转换成INT型再比较呵！

BosCourage

可以阿 只是写起来麻烦 所以过来问问大家
看来得自己写了

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

lovepl

程序没有对某一段相等时进行处理，但大概意思就是这样了
估计程序比较复杂，期望有高手写出更简练的来

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $ip1 = "1.2.3.5";#shift;
   
5. my $ip2 = "1.2.3.6";#shift;
   
6. 
   
7. @list1 = split /\./,$ip1;
   
8. @list2 = split /\./,$ip2;
   
9. 
   
10. for (0..3){
    
11.         if($list1[$_]>$list2[$_]){
    
12.                 print "$ip1>$ip2\n";
    
13.                 exit;
    
14.         }
    
15.         elsif($list1[$_]<$list2[$_]){
    
16.                 print "$ip1<$ip2\n";
    
17.                 exit;
    
18.         }
    
19. }
    

复制代码

clory_0

可以试下这个 ^_^
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 ;
}