scripts/perl/dafif/dafift2fix.pl

   1 #!/usr/bin/perl
   2 ########################################################################
   3 # Convert DAFIFT WPT.TXT to FlightGear format.
   4 ########################################################################
   5
   6 use strict;
   7
   8 <>;                             # skip header line
   9
  10 print "// FlightGear intersection data, generated from DAFIFT WPT.TXT\n";
  11
  12 while (<>)
  13 {
  14   chop;
  15   my @F = split(/\t/);
  16   printf("%-5s %10.6f %11.6f\n",  $F[0], $F[14], $F[16]);
  17 }
  18
  19 print "[End]\n";
  20
  21 # end of dafif2fix.pl