Conversion coordonnées DMS (degrés, minutes, secondes) en DD (degrés décimaux) sur un code PERL

**Ubaxo21** · 07/06/2019, 11h44

Bonjour tout le monde, je suis bloqué sur mon code PERL
J'enregistre des données de localisation grâce à ce programme mais ils enregistre en format DMS (degrés, minutes, secondes) et je voudrais en format DD (degrés décimaux)

Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            # éviter les trame vide...
            next if ( $champs[1] eq '' );
            next if ( $champs[2] eq '' );
            next if ( $champs[3] eq '' );
            next if ( $champs[4] eq '' );
 
            my $latitude = $champs[1] / 100;    # format xx xx° xx' xx''
            $latitude *= -1 if ( $champs[2] eq 'S' );    # N -> +, S -> - on multiplie par -1 pour le Sud
 
            my $longitude = $champs[3] / 100;
            $longitude *= -1 if ( $champs[4] eq 'W' );    # E -> +, W -> - on multiplie par -1 pour L'Ouest
 
            printlog "Enregistrement L: $latitude, l: $longitude\n", 'I'; #on écrit les coordonnées à l'aide de la fonction printlog

Message de lolo78: J'ai supprimé tes quatre autres messages en doublon de celui-ci. Il est inutile de poster cinq fois le même message sur tous les sous-forums de cette rubrique.

**Flodelarab** · 07/06/2019, 12h00

Bonjour

Je n'ai pas tout lu mais je signale que les mots "minute" et "seconde" font référence à la base sexagésimal (base 60).
Donc une minute, qu'elle soit pour le temps ou pour les angles désigne un soixantième (1/60) de l'unité.
Et "seconde" veut dire "minute de second rang". Donc un soixantième d'un soixantième (1/3600).

Dès lors, tu dois être capable de convertir les minutes et secondes en subdivisons de l'unité et ajouter.

N'est-ce pas ?

Bonne chance

**Lolo78** · 07/06/2019, 17h28

Je rejoins Flodelarab. Soit par exemple une valeur (longitude ou latitude) de 24° 35' 42''. Il suffit de faire la somme: 24 + 35/60 + 42/3600. Exemple sous le debugger (ici, j'ai mis la valeur sous la forme d'une chaîne de caractères avec un espace pour signaler le changement d'unité, car ne je connais pas le format réel de tes données en entrée):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  DB<1> ($deg, $min, $sec) = split / /, "24 35 42";
 
  DB<2> $min /= 60;
 
  DB<3> $sec /= 3600;
 
  DB<4> $deg_dec = $deg + $min + $sec
 
  DB<5> print  $deg_dec
24.595

Remarque: pour les positions géographiques, il est d'usage courant d'utiliser des minutes décimales (par exemple 24° 45,17 min), mais plus rare d'utiliser des degrés décimaux, mais, bon, c'est toi qui vois ce dont tu as vraiment besoin dans ton cas particulier.

**Ubaxo21** · 07/06/2019, 23h11

Envoyé par Flodelarab

Bonjour

Je n'ai pas tout lu mais je signale que les mots "minute" et "seconde" font référence à la base sexagésimal (base 60).
Donc une minute, qu'elle soit pour le temps ou pour les angles désigne un soixantième (1/60) de l'unité.
Et "seconde" veut dire "minute de second rang". Donc un soixantième d'un soixantième (1/3600).

Dès lors, tu dois être capable de convertir les minutes et secondes en subdivisons de l'unité et ajouter.

N'est-ce pas ?

Bonne chance

J'ai modifié le code pour gardé juste le format DMS est c'est la que je bloque.

**Lolo78** · 08/06/2019, 15h05

Bonjour,

on t'a montré comment faire. Si tu veux plus d'aide, il faut que tu montres exactement ce qu'il y a dans les différents éléments de ton tableau @champs.

**Ubaxo21** · 11/06/2019, 14h18

Envoyé par Lolo78

Bonjour,

on t'a montré comment faire. Si tu veux plus d'aide, il faut que tu montres exactement ce qu'il y a dans les différents éléments de ton tableau @champs.

Nom : Capture du 2019-06-11 14-16-43.png
Affichages : 948
Taille : 228,4 Ko

**Flodelarab** · 11/06/2019, 15h50

Le mieux, c'est encore de regarder la documentation adéquate (clic).
Avec tes cas particuliers:
GPGLL (clic)
GPGSV (clic)

**Lolo78** · 11/06/2019, 22h26

En fait, tes minutes sont déjà décimalisées (comme je t'avais dit que c'est l'usage courant pour les positions géographiques).

Du coup, si tu as une latitude de 4243.92144 N, il faut séparer les deux premiers chiffres (42, ce sont les degrés) et diviser les minutes (43.92144) par 60 pour les convertir en degrés et ajouter le résultat obtenu au nombre entier de degrés.

Voici un exemple sous le debugger:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  DB<1> $lat = 4243.92144;
 
  DB<2> ($deg, $min) = $lat =~ /(\d\d)(\d.+)/;
 
  DB<3> p $deg
42
  DB<4> p $min
43.92144
  DB<5> $min_in_deg = $min / 60;
 
  DB<6> p $min_in_deg
0.732024
  DB<7> $lat_in_deg = $deg + $min_in_deg;
 
  DB<8> p $lat_in_deg
42.732024

Pour la longitude (par ex. 00326.99370 W), ce sont les trois premiers chiffres (003) qui indiquent les degrés (parce qu'une latitude vaut au maximum 90 degrés alors qu'une longitude peut aller jusqu'à 180 degrés).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
  DB<1>  $long = "00326.99370";
 
  DB<2> ($deg, $min) = $long =~ /(\d{3})(\d.+)/;
 
  DB<3> $min_in_deg = $min / 60;
 
  DB<4> $long_in_deg = $deg + $min_in_deg;
 
  DB<5> p $long_in_deg
3.449895

Dans ce cas ci-dessus, tu veux peut-être multiplier la longitude par -1 (car c'est une longitude W).

**Ubaxo21** · 12/06/2019, 10h26

J'ai modifié le code mais je n'ai pas réussi a multiplié par -1 je ne sais pas comment faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $latitude = $champs[1];   
			($deg, $min) = $champs[1] =~ /(\d\d)(\d.+)/; 
			$min_in_deg = $min / 60;
			$lat_in_deg = $deg + $min_in_deg;           
 
            my $longitude = $champs[3];
			($deg, $min) = $champs[3] =~ /(\d{3})(\d.+)/;
			$min_in_deg = $min / 60;
			$long_in_deg = $deg + $min_in_deg;
 
            printlog "Enregistrement L: $lat_in_deg, l: $long_in_deg\n", 'I'; #on écrit les coordonnées à l'aide de la fonction printlog
 
            print STDERR color('red'); #on écrit en rouge
            $sth->execute( $lat_in_deg, $long_in_deg )
                or dielog "Echec Requête $req : $DBI::errstr", 'F'; #on exécute la requête sql
 
            sleep($tempo); #temporisation du script
        }

**Ubaxo21** · 12/06/2019, 10h38

C'est bon j'ai réussi
Merci beaucoup pour vos réponses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
#!/usr/bin/perl -w
 
use strict; # désactive certaines expressions en Perl qui pourraient être difficile à déboguer
use warnings; #donne le contrôle sur quels avertissements sont activés dans quelles parties d’un programme Perl
#use utf8;
use DBI; # driver de base de données
use Term::ANSIColor; #directive pour pouvoir utiliser color() qui colorie le texte en sortie de terminal
# Fonction qui prend 2 paramètres $message et $status ecrit le message avec le status 'F' si pas défini
sub dielog {
    my ( $message, $status ) = @_;
    $status = 'F' if ( !defined $status );
    printlog($message, $status); #appel à la fonction printlog  de mise en forme définie ci-dessous
    exit;#fin de la fonction
}
 
#Fonction printlog d'écriture des logs --> elle met en forme en fonction de $message et de $status
sub printlog {
    my ( $message, $status ) = @_; #La fonction prend 2 paramètres $message et $status contenues dans le tableau @_
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(); #définit les variables $sec,$min..
    $year += 1900; #incrémente la variable $year de 1900
    print STDERR color('white'); #Change le texte en blanc
    print STDERR "[";  #écrit '['
 
    print STDERR color('green'); #Change le texte du terminal en vert
    printf STDERR "%04d-%02d-%02d %02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec;#écrit l'heure au format 09:29:12
    #printf STDERR "%4d-$year-$mon-$mday $hour:$min:$sec";
 
    print STDERR color('white'); #Change le texte en blanc
    print STDERR "] "; #écrit '] '
 
    print STDERR color('cyan'); #Change le text en couleur cyan
    print STDERR "$$ "; #retourn l'id du process du script en cours
 
    print STDERR color('reset');#réinitialise la couleurpar défaut
 
    $status = 'I' if ( !defined $status ); #affecte la varibale $status à 'I' si $status n'existe pas
 
    #Si la variable $status vaut 'M'
    if ( $status eq 'M' ) {
        print STDERR color('yellow', 'on_blue');# écrit en jaune sur fond bleu
        print STDERR ' MESSAGE '; # écrit 'MESSAGE ' en console
        print STDERR color('reset');#réinitialise la couleur par défaut
        print STDERR color('bright_blue'); #écrit en bleu
        print STDERR '-';
 
    }
    #Si la variable $status vaut 'E'
    elsif ($status eq 'E') {
        print STDERR color( 'bright_yellow', 'on_red' ); #écrit en jaune sur fond rouge
        print STDERR ' ERROR ';
        print STDERR color('reset'); #réinitialise la couleur par défaut
        print STDERR color('bright_blue');#écrit en bleu
        print STDERR '---';
    }   
    #Si la variable $status vaut 'D' 
    elsif ($status eq 'D') {
        print STDERR color( 'bright_yellow', 'on_green' );#écrit en jaune sur fond vert
        print STDERR ' DEBUG ';
        print STDERR color('reset');#réinitialise la couleur
        print STDERR color('bright_blue');
        print STDERR '---';
    }
    #Si la variable $stauts vaut 'F'
    elsif ($status eq 'F') {
        print STDERR color( 'black', 'on_red' );#écrit en noir sur fond rouge
        print STDERR ' FATAL ';#écrit ' FATAL'
        print STDERR color('reset');#réinitialise la couleur
        print STDERR color('bright_blue');
        print STDERR '---';
    }
    #Si la variable $stauts vaut 'W'
    elsif ($status eq 'W') {
        print STDERR color( 'bright_red', 'on_yellow' );
        print STDERR ' WARNING ';#écrit 'WARNING'
        print STDERR color('reset');#réinitialise la couleur
        print STDERR color('bright_blue');
        print STDERR '-';
    }
    #Sinon (cas par défaut)
    else {
        print STDERR color( 'bright_blue', 'on_black' );#écrit en bleu sur fond noir
        print STDERR ' INFO ';#écrit ' INFO'
        print STDERR color('reset');#réinitialise la couleur
        print STDERR color('bright_blue');#écrit en bleu
        print STDERR '----';
    }
 
    print STDERR color('bright_blue');#écrit en bleu
    print STDERR "> ";#écrit '> '
    print STDERR color('reset');#réinitialise la couleur
 
    #print STDERR color('bright_white');
    print STDERR $message;#écrit la valeur de la variable $message
 
    print STDERR color('reset');#réinitialise la couleur
}
 
# tempo initialise la variable $tempo à 1
my $tempo = 1;    # n secondes
 
# Paramètres de connection à la base de données
my $bd          = 'gps';
my $serveur     = 'localhost';
my $identifiant = 'gps';
my $motdepasse  = 'gps';
my $port        = '';            #Si vous ne savez pas, ne rien mettre
 
# test arguments fournis en paramètre au lancement du script en contenus dans @ARGV
if ( scalar @ARGV != 1 ) {
    print color('white');
    print "Usage: ";
    print color('green');
    print "$0 <device port gps>\nexample: $0 /dev/ttyACM0\n\n";#écrit le port fournit en paramétre
    print color('reset');
    exit 1;
}
#ouvre le port
open( COM, $ARGV[0] ) or dielog "Can't read serial port '$ARGV[0]': $!\n", 'F';#
 
# Connection à la base de données mysql
printlog "Connexion à la base de données $bd\n", 'I';
 
my $dbh = DBI->connect( "DBI:mysql:database=$bd;host=$serveur;port=$port",
    $identifiant, $motdepasse, { RaiseError => 1, } )
    or dielog
    "Connection impossible à la base de données $bd !\n $! \n $@\n$DBI::errstr";#message d'erreur en cas d'échec de connexion
 
# Création des tables
printlog "Création de la table 'gps'\n", 'I';
#requête sql de création de la table gps
my $req_create_table_sql = <<"SQL";
CREATE TABLE  IF NOT EXISTS `gps` (
  `id` int(10) UNSIGNED NOT NULL,
  `latitude` FLOAT( 10, 6 ) NOT NULL ,
  `longitude` FLOAT( 10, 6 ) NOT NULL
 
) ENGINE = MYISAM DEFAULT CHARSET=latin1 COMMENT='Coordonnées GPS fonction de timestamp';
SQL
#
#Exécution de la requête de création de table
$dbh->do($req_create_table_sql)
    or dielog "Echec Requête $req_create_table_sql : $DBI::errstr", 'F';
#Requête d'insertion d'une ligne dans la gps nouvellement crée
my $req = "INSERT INTO `gps` (`id`, `latitude`, `longitude`) VALUES (UNIX_TIMESTAMP(), ?, ?);";
my $sth = $dbh->prepare($req);
 
my $ligne;
my @champs;
my $deg;
my $min;
my $min_in_deg;
my $lat_in_deg;
my $long_in_deg;
 
while (1) {
    while ( $ligne = <COM> ) {
        chomp $ligne;#chomp: retire les séparateurs de ligne
 
        printlog "$ligne\n", 'D' if ( $ligne ne '' );#Si $ligne n'est pas vide
 
        if ( $ligne =~ /^\$GPGLL/ ) { #recherche le motif GPGLL dans la ligne
            @champs = split ',', $ligne; #découpe la ligne en valeur dans le tableau @champs suivant le séparateur ','
 
            my $i = 0; #initialisation du compteur $i à 0
            foreach my $val (@champs) { #on parcourt tous les champs
                printlog "champ[$i]: $val\n", 'D';#on écrit avec la fonction printlog (cf.ci-dessus) les champs
                $i++;
            }
 
            # éviter les trames vides...
            next if ( $champs[1] eq '' );
            next if ( $champs[2] eq '' );
            next if ( $champs[3] eq '' );
            next if ( $champs[4] eq '' );
 
            my $latitude = $champs[1];   
            ($deg, $min) = $champs[1] =~ /(\d\d)(\d.+)/; 
            $min_in_deg = $min / 60;
            $lat_in_deg = $deg + $min_in_deg;           
 
            my $longitude = $champs[3];
            ($deg, $min) = $champs[3] =~ /(\d{3})(\d.+)/;
            $min_in_deg = $min / 60;
            $long_in_deg = $deg + $min_in_deg;
            $long_in_deg *= -1 if ( $champs[4] eq 'W' );
 
            printlog "Enregistrement L: $lat_in_deg, l: $long_in_deg\n", 'I'; #on écrit les coordonnées à l'aide de la fonction printlog
 
            print STDERR color('red'); #on écrit en rouge
            $sth->execute( $lat_in_deg, $long_in_deg )
                or dielog "Echec Requête $req : $DBI::errstr", 'F'; #on exécute la requête sql
 
            sleep($tempo); #temporisation du script
        }
 
    }
 
    sleep($tempo);#temporisation du script
}
 
close(COM);#fermeture du port

Conversion coordonnées DMS (degrés, minutes, secondes) en DD (degrés décimaux) sur un code PERL

Langage Perl

Discussions similaires

Partager

Partager