Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
use XML::Simple;
...
substr($lanip, 11, 3) = "0";
push(my @array, $lanip) if ! $seen{$lanip}++;
print "@array\n";
  2. or download this
    192.169.30.0


...
  3. or download this
    192.169.30.0
192.169.31.0
192.169.32.0
192.169.72.0