Help for this page

Select Code to Download


  1. or download this
    use Socket;
    
    ...
      my $bits = 32 - ($block =~ tr/#/0/);
      print inet_ntoa(pack("B*", $block)),"/$bits\n";
    }
    
  2. or download this
    --- nm3b.out    Thu Oct 11 21:54:06 2001
    +++ nm3b.xx     Sat Oct 13 00:08:51 2001
    ...
    +5.4.3.0/31
     6.6.6.0/27
     6.6.7.0/26
    
  3. or download this
    101.33.45.27/30
    101.33.34.0/24
    
  4. or download this
    use Socket;
    
    ...
      my $bits = 32 - ($block =~ tr/#/0/);
      print inet_ntoa(pack("B*", $block)),"/$bits\n";
    }