Discussion :

[Ubaxo21]

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]

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]

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]

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]

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]

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.

[Flodelarab]

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