Just use $record{flags} instead of $flags etc.my @keys = qw(flags x y mode3 callsign route spare1 spare2 flight_leve +l terminator chksum_packet); my %record; @record{@keys} = unpack("B16 n2 A4 A8 A2 A A A3 C2", $buffer);
In reply to Re: Data structure for this...
by ctilmes
in thread Data structure for this...
by robinbowes
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |