Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 20
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2019
    Messages : 5
    Points : 8
    Points
    8

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

    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.

  2. #2
    Expert éminent Avatar de Flodelarab
    Homme Profil pro
    Inscrit en
    septembre 2005
    Messages
    3 868
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente (Poitou Charente)

    Informations forums :
    Inscription : septembre 2005
    Messages : 3 868
    Points : 9 398
    Points
    9 398

    Par défaut

    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
    Cette réponse vous apporte quelque chose ? Cliquez sur en bas à droite du message.

  3. #3
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 461
    Points
    12 461
    Billets dans le blog
    1

    Par défaut

    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.

  4. #4
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 20
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2019
    Messages : 5
    Points : 8
    Points
    8

    Par défaut

    Citation Envoyé par Flodelarab Voir le message
    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.

  5. #5
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 461
    Points
    12 461
    Billets dans le blog
    1

    Par défaut

    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.

  6. #6
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 20
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2019
    Messages : 5
    Points : 8
    Points
    8

    Par défaut

    Citation Envoyé par Lolo78 Voir le message
    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 : 43
Taille : 228,4 Ko

  7. #7
    Expert éminent Avatar de Flodelarab
    Homme Profil pro
    Inscrit en
    septembre 2005
    Messages
    3 868
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente (Poitou Charente)

    Informations forums :
    Inscription : septembre 2005
    Messages : 3 868
    Points : 9 398
    Points
    9 398

    Par défaut

    Le mieux, c'est encore de regarder la documentation adéquate (clic).
    Avec tes cas particuliers:
    GPGLL (clic)
    GPGSV (clic)
    Cette réponse vous apporte quelque chose ? Cliquez sur en bas à droite du message.

  8. #8
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 461
    Points
    12 461
    Billets dans le blog
    1

    Par défaut

    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).

  9. #9
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 20
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2019
    Messages : 5
    Points : 8
    Points
    8

    Par défaut

    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
            }

  10. #10
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2019
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 20
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2019
    Messages : 5
    Points : 8
    Points
    8

    Par défaut

    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Fonction conversion Données décimales en Degré,Minutes,Secondes
    Par NeoGeekette dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 16/08/2014, 13h40
  2. Formule conversion d'un temps (minutes + secondes)
    Par Faradeorn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/08/2011, 21h33
  3. Conversion Heure Minute Seconde
    Par TiBijou dans le forum Algorithmes et structures de données
    Réponses: 19
    Dernier message: 05/01/2010, 14h28
  4. Réponses: 2
    Dernier message: 03/07/2008, 10h40
  5. Réponses: 6
    Dernier message: 08/08/2007, 17h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo