Help for this page

Select Code to Download


  1. or download this
    $ perl -E 'my @x = split /\./, "10.1.1.5"; $x[3] % 2 ? --$x[3] : ++$x[
+3]; say join ".", @x'
10.1.1.4
$ perl -E 'my @x = split /\./, "10.1.1.6"; $x[3] % 2 ? --$x[3] : ++$x[
+3]; say join ".", @x'
10.1.1.7
  2. or download this
    $ perl -E 'my @x = split /\./, "10.1.1.5"; $x[3] % 2 ? ++$x[3] : --$x[
+3]; say join ".", @x'
10.1.1.6
$ perl -E 'my @x = split /\./, "10.1.1.6"; $x[3] % 2 ? ++$x[3] : --$x[
+3]; say join ".", @x'
10.1.1.5
  3. or download this
    $ perl -E 'my @x = split /\./, "10.1.1.0"; $x[3] % 2 ? ++$x[3] : --$x[
+3]; say join ".", @x'
10.1.1.-1
$ perl -E 'my @x = split /\./, "10.1.1.255"; $x[3] % 2 ? ++$x[3] : --$
+x[3]; say join ".", @x'
10.1.1.256