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";
}