Help for this page

Select Code to Download


  1. or download this
    my %TEST_REC_PACK_FLDS = {
   status => 'n  ',   #   0
...
   code   => 'a16',   #   8   key
   msid   => 'a10',   #  24   key
};
  2. or download this
    use constant @TEST_FLDS => keys %TEST_REC_PACK_FLDS;
  3. or download this
    use constant TEST_REC_PACK => $join ' ', values %TEST_REC_PACK_FLDS;