Select Code to Download

#!/usr/bin/env perl
use warnings;
...
              Dumper($recce->value), "\n\n", RESET);
    }
}

\[
    "entry",
...
    ],
  ]
...

    <ipv4>          ::= NUMBER ('.') NUMBER ('.') NUMBER ('.') NUMBER 
+  action => joindot
    <hostname>      ::= NAMECH+                      separator => DOT 
+  action => joindot
...
sub joindot { shift, join '.', @_ }

\[
    "entry",
...
      "www.example.org",
    ],
  ]

    <ipv4>          ::= NUMBER ('.') NUMBER ('.') NUMBER ('.') NUMBER 
+  action => joinipv4
    <hostname>      ::= NAMECH+                      separator => DOT 
+  action => joinhostname
...
sub joindot      { join '.', @_ }
sub joinipv4     { shift, ["ipv4", (joindot @_)] }
sub joinhostname { shift, ["hostname", (joindot @_)] }