Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
   my @parts = unpack('A5 A7 A5 A3 A5 A9 A2 A4 A2 A5 A5 A*', $_);
...
0607 9      NORM 2  ALLO AFR100M  i       0520 0533 
0609 11     NORM 2  ALLO GJT775   i E     2300 2315      
0610 12     NORM 2  ALLO AF661WN  i       0450 0500 0500
  2. or download this
    0601|3|NORM|2|ALLO|XLF753|||U|0045|0050|
0603|5|NORM|2|ALLO|ADR2CG||||0430|0438|
...
0607|9|NORM|2|ALLO|AFR100M|i|||0520|0533|
0609|11|NORM|2|ALLO|GJT775|i|E||2300|2315|
0610|12|NORM|2|ALLO|AF661WN|i|||0450|0500|0500