Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    use warnings;
    ...
                  Dumper($recce->value), "\n\n", RESET);
        }
    }
    
  2. or download this
    \[
        "entry",
    ...
        ],
      ]
    ...
    
  3. or download this
        <ipv4>          ::= NUMBER ('.') NUMBER ('.') NUMBER ('.') NUMBER 
    +  action => joindot
        <hostname>      ::= NAMECH+                      separator => DOT 
    +  action => joindot
    ...
    sub joindot { shift, join '.', @_ }
    
  4. or download this
    \[
        "entry",
    ...
          "www.example.org",
        ],
      ]
    
  5. or download this
        <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 @_)] }