Garmin-GPX - Sonderzeichen kodieren (gelöst) (Allgemeines zu Perl)

[thread]21157[/thread]

Garmin-GPX - Sonderzeichen kodieren [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+10 replies
Gast Friedel

2020-11-14 16:08

Hallo ich bin zum 1. mal in diesem Forum und benötige mal eure Hilfe.
Ich bin dabei mit Perl eine gpx Datei für Garmin zu erstellen. das Script erzeugt deine Datei im UFT8 Format. Das funktioniert so recht gut. Nun möchte ich noch zu den einzelnen Zielen Graphiken hinzufügen. die Pfadangaben der Bilder sehen im Original so aus
<link href="D:/Daten/POI/Stellplaetze/Schl%C3%B6sser-Burgen/Frankreich/Bilder/Tr%C3%A9mazan.jpg" />
Wie kann ich diese Konvertierung der Sonderzeichen erreiche?
Für Hilfe währe ich sehr dankbar.

Splitted from Garmin-POI-Dateien mit Perl erstellen msg #141183
Last edited: 2020-11-18 11:21:48 +0100 (CET)
- +9 replies
- Linuxer
  
  2020-11-14 23:33
  User since
  2006-01-27
  3881 Artikel
  HausmeisterIn
  Hallo und willkommen.
  
  Auf die Schnelle kam ich auf das Modul URI.
  
  Code: (dl )
  
  1 2
  
  $ perl -MURI -E 'say URI->new("C:/Bilder/Schlösser/");' C:/Bilder/Schl%C3%B6sser/
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +8 replies
  - Friedel
    
    2020-11-16 12:00
    User since
    2020-11-15
    4 Artikel
    BenutzerIn
    
    Hallo Linuxer
    Herzlichen Dank für deine schnelle Antwort.
    Leider komme ich mit deiner Zeile nicht klar.
    Meine falsche Zeile
    
    Code: (dl )
    
    $pfad_c = uri_escape( $pfad );
    
    erzeugt
    
    Code: (dl )
    
    <link href="D%3A%2FDaten%2FPOI%2FStellplaetze%2FSchl%F6sser-Burgen%2FFrankreich%2FBilder%2FTr%E9mazan.jpg" />
    
    benötigt wird
    
    Code: (dl )
    
    <link href="D:/Daten/POI/Stellplaetze/Schl%C3%B6sser-Burgen/Frankreich/Bilder/Tr%C3%A9mazan.jpg" />
    
    Hoffentlich hast du eine Idee.
    Währe dir sehr dankbar
    Last edited: 2020-11-16 12:28:36 +0100 (CET)
    - +7 replies
    - GwenDragon
      
      2020-11-16 12:36
      
      User since
      2005-01-17
      14607 Artikel
      Admin1
      
      Wieso brauchst du denn uri_eascape?
      
      Code (perl): (dl )
      
      1 2
      
      use URI; $pfad_c = URI->new( $pfad );
      
      Last edited: 2020-11-16 12:37:57 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - Friedel
        
        2020-11-16 13:58
        
        User since
        2020-11-15
        4 Artikel
        BenutzerIn
        
        Hallo GwenDrago,
        ich brauche das nicht nur der POI-Loder erwartet dieses Format.
        Mein Problem habe ich aber gelöst.
        
        Code: (dl )
        
        1 2
        
        $pfad_c = Encode::encode('utf-8', $pfad) $pfad_g_c = uri_escape($pfad_c);
        
        so erhalte ich das gewünschte ergebnis.
        Nicht schön aber es läuft.
        Danke für Eure Hilfestellung
        
        +5 replies
        
        haj
        
        2020-11-16 15:41
        
        User since
        2015-01-07
        531 Artikel
        BenutzerIn
        
        2020-11-16T12:58:03 Friedel
        Nicht schön aber es läuft.
        
        Ach ja, Windows. Da hätte man draufkommen können bei Deinen Pfad-Angaben. Der Linuxer arbeitet mit einem Betriebssystem, in dem die Shell UTF-8 ans Programm liefert. Das decodiert er nicht, und das URI-Modul bekommt daraufhin die beiden Bytes Â¶ anstelle des ö vorgesetzt. Die werden als "High-Byte"-Characters per Default in die entsprechenden Prozent-Escapes, also %C3 und %B6 umgesetzt (siehe URI::Escape). Es funktioniert also... eher zufällig.
        
        Du hast den Pfad anscheinend eher in Perl's "normaler" Codierung ISO-8859-1. Da ist ein ö ein einzelnes Byte und wird nach %F6 umcodiert. Das siehst Du auch an entsprechender Stelle in Deinem fehlgeschlagenen Versuch.
        
        Dass Du mit Deinem Code ein Ergebnis erhältst das funktioniert, ist wohl auch eher zufällig (zunächst fehlt das Semikolon nach dem ersten Statement). Denn uri_escape wandelt nicht nur den Umlaut, sondern auch alle Zeichen in %-Escapes um, die in HTTP eine spezielle Bedeutung haben - also den Doppelpunkt und den Schrägstrich. uri_escape wird also D:/Daten/ immer in D%3A%2FDaten%2F umwandeln - es sei denn, Du beschreibst für uri_escape genauer, was Du umgesetzt haben willst.
        
        Hier mal ein vollständiges Programm für die Umsetzung. Ich habe den Pfad so geschrieben, dass er unabhängig von der Codierung der Quelldatei und dem Betriebssystem funktioniert - deswegen \x{f6} für ö und \x{e9} für é
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        use 5.020; use strict; use warnings; use Test::More tests => 1; use URI::Escape; use Encode; my $pfad = "D:/Daten/POI/Stellplaetze/Schl\x{f6}sser-Burgen/Frankreich/Bilder/Tr\x{e9}mazan.jpg"; my $expected = 'D:/Daten/POI/Stellplaetze/Schl%C3%B6sser-Burgen/Frankreich/Bilder/Tr%C3%A9mazan.jpg'; $pfad_c = Encode::encode('utf-8', $pfad); $pfad_g_c = uri_escape($pfad_c,"\x00-\x1f\x7f-\xff"); is($pfad_g_c,$expected,"Die Codierung ist so richtig!");
        
        +4 replies
        
        Friedel
        
        2020-11-17 11:40
        
        User since
        2020-11-15
        4 Artikel
        BenutzerIn
        
        Hallo haj,
        recht herzlichen Dank für deine ausführlich erklärende Beschreibung.
        Das ; ist im Original vorhanden.
        Ich erstelle aus Access einen Dumpfile mit den Koordinaten und einer Beschreibung so ca. 400 Datensätze.
        Der *.gpx File kann in Base Camp und mit Hilfe von dem POI Loader in meinem Navi Camper 890 eingelesen werden und die Darstellung ist ok.
        Selbst die vielen Sonderzeichen der Franzosen werden richtig konvertiert und dargestellt.
        Danke auch für deine Mühe mit dem Progamm.
        Ein tolle Forum, das auch laien verständlich hilft.
        Nach einmal recht herzlichen Dank an alle.
        
        +3 replies
        
        GwenDragon
        
        2020-11-17 18:37
        
        User since
        2005-01-17
        14607 Artikel
        Admin1
        
        Ist dein Problem damit gelöst?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Friedel
        
        2020-11-18 11:07
        
        User since
        2020-11-15
        4 Artikel
        BenutzerIn
        
        Mein Problem ist gelöst.
        Vielen Dank noch einmal
        Friedel
        
        Gast GwenDragon@Linux
        
        2020-11-18 11:19
        
        Sehr schön.
        Dann setze ich den Thread später gelöst.

View all threads created 2020-11-18 11:21.