branches/old/utv/gpsmap-serial

   1 #!/usr/bin/perl -w
   2
   3 # $Id$
   4 # Skriver ut seriellformatet fra Garmin-GPS'en på leselig format.
   5
   6 use strict;
   7
   8 $| = 1;
   9
  10 while (<>) {
  11         s/\s//g;
  12         if (/^
  13 (.) # @
  14 (..) # År
  15 (..) # Måned
  16 (..) # Dag
  17 (..) # Timer
  18 (..) # Minutter
  19 (..) # Sekunder
  20 (.) # N|S
  21 (..) # Grad
  22 (..) # Gradminutt
  23 (...) # Gradminuttdesimaler
  24 (.) # E|W
  25 (...) # Grader
  26 (..) # Gradminutt
  27 (...) # Desimaler gradminutt
  28 (....) # Accurancy
  29 (......) # Høyde
  30 (...............)
  31
  32                 /x) {
  33                         my ($Alfa,
  34                         $Year, $Month, $Day, $Hour, $Min, $Sec,
  35                         $NS, $Y_deg, $Y_degmin, $Y_mindec,
  36                         $EW, $X_deg, $X_degmin, $X_mindec,
  37                         $Accur, $Alt,
  38                         $Rest) =
  39                         ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12, $13, $14, $15, $16, $17, $18);
  40                         print(<<END);
  41 20$Year-$Month-$Day $Hour:$Min:$Sec $NS$Y_deg°$Y_degmin.$Y_mindec'/$EW$X_deg°$X_degmin.$X_mindec'
  42 Accur: $Accur
  43 Alt: $Alt
  44 $Rest
  45
  46 END
  47 =pod
  48 @
  49 02
  50 07
  51 21
  52 22
  53 13
  54 35
  55 N6048263
  56 E00701290
  57 S015-00001E4859N1673U0000
  58 @020721221336N6048353E00701826S015-00001E4859N1673U0000
  59 .......................................................
  60 =cut
  61
  62         } else {
  63                 # warn("Linje $.: Ukjent.\n");
  64         }
  65 }