Help for this page

Select Code to Download


  1. or download this
    # Declaration of the data structure
my %packet_fields = (
...
# $ident is extracted from $buffer
    @packet{ @{$packet_fields{ $ident }} } =
        unpack ( $packet_template{ $ident }, $buffer);
  2. or download this
    my %ARP_GLA = (
    x    =>    247866.9,
...
my %ARP_EDI = (
    x    =>    314382.0,
    y    =>    673841.9,
  3. or download this
    my %ARP = (
    GLA => {
...
        y    =>    673841.9
        }
);
  4. or download this
    my $edi_arp = $ARP{EDI}->{x};