# entfernt zum Wandern unnötige Informationen aus von z.B. QMapShack angelegten gpx-Dateien
# Aufruf: "!_GPXstrippen.pl" "datei1" "datei2" "datei3" ... Argumente enthalten den kompletten Pfad plus Dateinamen
# Die Dateinamen dürfen keine Leerzeichen enthalten!
# Button in TotalCommander für Selektion mehrerer Dateien:
# Kommando: cmd /k "c:\_Programme\!_GPXstrippen.pl" Parameter: %S Startpfad: leer Icondatei: C:\Windows\System32\moricons.dll Icon 49 Tooltip: entfernt aus .gpx-Datei Zeit, Typ und Extensions
# erzeugt im gleichen Verzeichnis die bearbeiteten Dateien "xxx_strip.gpx"
# Version 2.0, Copyright 2023, Tom Schilling, Die Software unterliegt der GNU General Public License (GPL)


# Platz gewinnt man durch Entfernen von:
# - spezifischen Erweiterungen des Erzeuger-Programms oder -Geräts
# - optionalen Feldern, die angelegt wurden, aber keinen oder nur generischen Inhalt enthalten
# - Zeitstempeln der Track-Aufnahme (Die Zeitstempel in Waypoints könnte ich in einer späteren Version erhalten, damit man eine Richtzeit zwischen zwei Wegpunkten nachschlagen kann.)
# - unsinnigen Nachkommastellen in Koordinaten. => Runden auf eine Genauigkeit von etwa 10 Zentimeter in Länge, Breite und Höhe
#   (Garmin schreibt Daten mit 14 Stellen nach dem Komma in die Datei, das entspricht 1 Nanometer Genauigkeit in Länge und Breite und 10 Femtometer in der Höhe (was etwa 6 Protonen-Durchmessern entspricht))
# - unnötigen Tabs und Zeilenumbrüchen, macht die Datei gleichzeitig menschenlesbarer
#   Momentan lohnt sich der Aufwand nicht, die Datei komplett zu parsen und neu wieder zusammenzusetzen, um track- und routenspezifische Optimierungen vornehmen zu können

# Was enthält die Spezifikation und was schreibe ich in die bearbeitete Datei?
# <?xml version="1.0" encoding="UTF-8"?> -> als erste Zeile erhalten
# <gpx version="1.1" creator=""> -> alles andere im öffnenden Tag entfernen
#   kann enthalten: <metadata> -> bearbeiten
#                   <wpt> -> bearbeiten
#                   <rte> -> mit Routen kann ich beim Wandern nichts anfangen, trotzdem drin lassen, Routen enthalten manchmal beschriftete Wegpunkte
#                   <trk> -> bearbeiten
#                   <extensions> -> löschen (enthält GPS-Geräte spezifischen Kram)
# <metadata></metadata> enthält Tags in genau dieser Reihenfolge!
#   kann enthalten: <name></name> -> erhalten
#                   <desc></desc> -> erhalten
#                   <author></author> -> erhalten, wird kaum verwendet
#                   kann enthalten: <name></name> -> erhalten
#                                   <email id="" domain=""/> -> erhalten
#                                   <link href=""></link> oder <link href=""/> -> erhalten
#                                   kann enthalten (in dieser Reihenfolge): 
#                                                  <text></text> -> erhalten
#                                                  <type><type> -> erhalten
#                   <copyright author=""></copyright> oder <copyright author=""/> -> erhalten
#                   kann enthalten: <year></year> -> erhalten
#                                   <license></license> -> erhalten
#                   <link href=""></link> oder <link href=""/> -> erhalten
#                   kann enthalten (in dieser Reihenfolge): 
#                                   <text></text> -> erhalten
#                                   <type></type> -> erhalten
#                   <time></time> -> löschen, die Zeit der letzen Bearbeitung ist für meine Wanderung nicht relevant
#                   <keywords></keywords> -> erhalten
#                   <bounds minlat="" minlon="" maxlat="" maxlon=""/> -> einmal erhalten, Anzahl Nachkommastellen <= 6
#                   <extensions></extensions> -> alle löschen
# <wpt lat="" lon=""></wpt> oder <wpt lat="" lon=""/> -> Anzahl Nachkommastellen <= 6
#   kann enthalten: <ele></ele> -> erhalten, Anzahl Nachkommastellen <= 1
#                   <time></time> -> löschen, andererseits könnte man anhand der Wegpunkte die benötigte Zeit abschätzen
#                   <magvar></magvar> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <geoidheight></geoidheight> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <name></name> -> erhalten
#                   <cmt></cmt> -> erhalten, wenn cmt = name -> cmt löschen, wenn startet mit "&lt;html" -> löschen
#                   <desc></desc> -> erhalten, wenn desc = cmt -> desc löschen, wenn startet mit "&lt;html" -> löschen, Was zeigt Oruxmaps und Backcountrynavigator an? desc oder cmt?
#                   <src></src> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <link href=""></link> oder <link href=""/> -> erhalten
#                   kann enthalten (in dieser Reihenfolge): 
#                                   <text></text> -> erhalten
#                                   <type></type> -> erhalten
#                   <sym></sym> -> nach dem ersten Symbol suchen und wenn alle anderen gleich sind, alle löschen
#                   <type></type> -> alle löschen, enthält nur "user" oder selten mal "Waypoint", "GPS Tracklog"
#                   <fix></fix> ('none'|'2d'|'3d'|'dgps'|'pps') -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <sat></sat> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <hdop></hdop> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <vdop></vdop> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <pdop></pdop> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <ageofdgpsdata></ageofdgpsdata> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <dgpsid></dgpsid> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <extensions></extensions> -> alle löschen, sind nur für das erstellende Programm/Gerät deutbar oder Farbeinstellungen
# <rte></rte> -> Route heißt, das Navi berechnet aus Wegpunkten und einer Datei des Wegenetzes den zu gehenden Weg selbst,
#          können Oruxmaps oder Back Country Navigator nicht machen, die können nur einen offline erzeugten Track anzeigen
#          manchmal enthalten die Punkte einer Route sprechende Namen und ergeben zusätzliche Wegpunkte
#          deshalb erhalte ich Routen in der Datei, braucht nicht viel Platz
#   kann enthalten: <name></name> -> erhalten
#                   <cmt></cmt> -> erhalten, wenn cmt = name -> cmt löschen, wenn startet mit "&lt;html" -> löschen
#                   <desc></desc> -> erhalten, wenn desc = cmt -> desc löschen, wenn startet mit "&lt;html" -> löschen, Was zeigt Oruxmaps und Backcountrynavigator an? desc oder cmt?
#                   <src></src> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <link href=""></link> oder <link href=""/> -> erhalten
#                   kann enthalten (in dieser Reihenfolge): 
#                                   <text></text> -> erhalten
#                                   <type></type> -> erhalten
#                   <number></number> -> erhalten, unterscheidet verschiedene Routen in der Datei
#                   <type></type> -> alle löschen, enthält nur "user" oder selten mal "Waypoint", "GPS Tracklog"
#                   <extensions></extensions> -> alle löschen, sind nur für das erstellende Programm/Gerät deutbar oder Farbeinstellungen
#                   <rtept lon="" lat=""></rtept> oder <rtept lon="" lat=""/> -> alle erhalten, das sind die Wegpunkte der Route
#                              immerhalb der <rtept> das gleiche tun, wie bei <wpt>  
# <trk></trk> -> Track: eine geordnete Liste von Punkten, die einen Pfad beschreiben
#   kann enthalten: <name></name> -> erhalten
#                   <cmt></cmt> -> erhalten, wenn cmt = name -> cmt löschen, wenn startet mit "&lt;html" -> löschen
#                   <desc></desc> -> erhalten, wenn desc = cmt -> desc löschen, wenn startet mit "&lt;html" -> löschen, Was zeigt Oruxmaps und Backcountrynavigator an? desc oder cmt?
#                   <src></src> -> alle löschen, hab ich noch nie in gpx-Dateien gesehen
#                   <link href=""></link> oder <link href=""/> -> erhalten
#                   kann enthalten (in dieser Reihenfolge): 
#                                   <text></text> -> erhalten
#                                   <type></type> -> erhalten
#                   <number></number> -> erhalten, unterscheidet verschiedene Tracks in der Datei
#                   <type></type> -> alle löschen, enthält nur "user" oder selten mal "Waypoint", "GPS Tracklog"
#                   <extensions></extensions> -> alle löschen, sind nur für das erstellende Programm/Gerät deutbar oder Farbeinstellungen
#                   <trkseg> -> erhalten, das sind die Tracksegmente des Tracks
# <trkseg></trkseg> -> Tracksegment: eine kontinuierliche Abfolge von Trackpunkten (z.B. eine Aufzeichnung mit GPS)
#   kann enthalten (in dieser Reihenfolge):
#                   <trkpt lat="" lon=""/> oder <trkpt lat="" lon=""></trkpt> -> bliebig viele Wegpunkte, alle erhalten, aber mit anderem Inhalt als normale Wegpunkte
#                              Anders als normale Wegpunkte sind die automatisch generiert und sollten nur <ele> enthalten,
#                              keine <time>, <magvar>, <geoidheight>, <name>, <cmt>, <desc>, <src>, <link>, <sym>, <type>,
#                                    <fix>, <sat>, <hdop>, <vdop>, <pdop>, <ageofdgpsdata>, <dgpsid>, <extensions>
#                   kann enthalten (in dieser Reihenfolge):
#                              <ele></ele> -> erhalten
#                              <time></time> -> löschen
#                   <extensions></extensions> -> alle löschen, sind nur für das erstellende Programm/Gerät deutbar oder Farbeinstellungen


# Was ist sonst noch zu tun?
# CDATA-Einkapselungen löschen, z.B. <name><![CDATA[Zelt02_19:10]]></name>, (von OruxMaps, BackCountry Navigator und ViewRanger) 
# Der GPX-Editor öffnet keine Dateien, die ein & in einem Tag haben, wenn es nicht in CDATA gekapselt ist. => "&" entfenen
# Web-Formulare an Wegpunkten löschen (von Garmin Desktop App)
# mit generischen Inhalten (Default-Symbol, Höhe = 0m) gefüllte Tags löschen
# leere Tags <xxx></xxx> löschen
# Das Zeilenende LFCR (Windows) durch LF (unix) ersetzen.
#  Die meisten Geräte und Programme verstehen beides und schreiben nur LF (unix).
#  Das Kombinieren von gpx-Dateien mit unterschiedlichen Zeilenende-Kodierungen könnte Probleme bereiten (bisher nicht erlebt). 
# Namen in Trackpunkten löschen (ist nicht standardkonform und sind ohnehin nur generische Namen z.B. "Punkt132")
# <trkpt> inklusive <ele> einzeilig machen (spart viele Zeilenumbrüche)
# Trackpunkte ohne Höhenangabe auf Minimalform verichten (kein extra schließender Tag)

# weitere mögliche Optimierungen:
# Leerzeichen und Tabs vor Elementen löschen (macht das Ergebnis schlechter lesbar, weil die Struktur nicht mehr sichtbar ist)
# Wenn alle Wegpunkte nur einen Namen enthalten, alle zum Einzeiler machen
# <wpt lat="39.375772" lon="-31.208896">
# 	<ele>21</ele>
# 	<name>Faja de Lopo Vaz</name>
# </wpt>
#  <wpt lat="37.760433" lon="-25.162899">
#    <name>Você Está Aqui1</name>
#  </wpt>

use strict;
use File::Basename;
our $enc = 'iso-8859-1';     #in dieser Kodierung ist das Script gespeichert, möglich sind 'utf-8', 'iso-8859-1' (Latin 1), 'cp1252';
my $gpxdatei;
my $dateilaenge;
my $originallaenge;
my $gpxdateineu;
my $dateiinhalt;
my $dateiname;
my $dateipfad;
my $dateiendung;
my $symdelete = 1;
my @gpssymarray;
my $gpssym;
my $gpssymdavor;
my $gpxtag;

$|++;                                                                           # turn off buffering

unless (@ARGV) {print '!_GPXstrippen.pl <dateipfad> <dateipfad> <dateipfad> ...'."\n"; <STDIN>; exit(1);}

foreach $gpxdatei (@ARGV)
{ 
 ($dateiname, $dateipfad, $dateiendung) = fileparse($gpxdatei, '\.[^.]*');      # fileparse("/foo/bar/baz.txt", qr/\.[^.]*/); On Unix returns ("baz", "/foo/bar/", ".txt")
 $dateiendung = lc $dateiendung;
 if ($dateiendung ne ".gpx") {print "$gpxdatei ist keine gpx-Datei!\n\n\n"; next;}
 $gpxdateineu = $dateipfad.$dateiname."_strip".$dateiendung;                    # neu zusammengesetzt
 
 open (GPX, '<', $gpxdatei) or die "Kann Datei nicht lesen: $!\n";
 
 my $size=-s $gpxdatei;
 binmode (GPX);
 my $gelesen = read ( GPX, $dateiinhalt, $size );
 close (GPX);
 
 print "Laenge der Datei: $dateiname$dateiendung\n";
 
 $dateilaenge = $originallaenge = length($dateiinhalt);
 print "$dateilaenge Byte original.\n";
 
 ##### Auf komplette Datei anwendbare Aktionen:
 
 if ($dateiinhalt =~ s/\x0D\x0A/\x0A/g)                    # Zeilenende von LFCR (Win) auf LF (unix) ändern 
 { 
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach umstellen auf unix Zeilenende.\n";
 }
 
 # Wenn alle Symbole gleich sind, können sie auch gelöscht werden $symdelete = 1;
 while ($dateiinhalt =~ /\<sym\>(.*)\<\/sym\>/g) { push @gpssymarray, $1; }    # lese alle Symbole <sym>xxx</sym> in ein Array
 $gpssymdavor = shift @gpssymarray;
 while ($gpssym = shift @gpssymarray) 
 {
  if ( $gpssym eq $gpssymdavor) { $gpssymdavor = $gpssym; }
  else { $symdelete = 0; last; }
 }
 if ( $symdelete == 1 )
  {
  if ($dateiinhalt =~ s/[ \t]*\<sym\>.*\<\/sym\>[\n\f\r]*//g)                  # lösche alle Symbole 
  {
   $dateilaenge = length($dateiinhalt);
   print "$dateilaenge Byte nach loeschen des generischen Symbols: \"$gpssymdavor\".\n";
  }
 } 
 
 if ($dateiinhalt =~ s/[ \t]*\<(.*)\>&lt;html (.|\n)*?\<\/\1\>[\n\f\r]*//g)    # Tags löschen, die Web-Formulare enthalten 
 {                                                                             # (Garmin Desktop App) 
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen aller Web-Formulare an Wegpunkten.\n";
 }
 
 if ($dateiinhalt =~ s/\<\!\[CDATA\[(.*)\]\]\>/$1/g)       # lösche alle CDATA - Umhüllungen z.B. in ![CDATA[Zelt02_19:10]]
 {                                                         # (schreiben OruxMaps, BackCountry Navigator und ViewRanger)
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen aller CDATA - Umhuellungen.\n";
 }
 
 if ($dateiinhalt =~ s/[ \t]*\<ele\>0\.?0?\<\/ele\>[\n\f\r]*//g)     # leere <ele>0.0</ele> oder <ele>0</ele> Elemente löschen
 {                                                                   # Höhenangaben mit 0 oder 0.0
  $dateilaenge = length($dateiinhalt);                               # funktioniert mit unix und Win Zeilenenden
  print "$dateilaenge Byte nach loeschen aller 0 m Hoehenangaben.\n";
 }
 
 if ($dateiinhalt =~ s/[ \t]*\<(.*)\>\s*?\<\/\1\>[\n\f\r]*//g)       # Tags löschen, die nichts enthalten außer Leerzeichen und Zeilenumbrüche <xxx> </xxx> 
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen leerer Tags z.B. ($1).\n";
 }
 
 if ($dateiinhalt =~ s/[ \t]*\<extensions\>(.|\n)*?\<\/extensions\>[\n\f\r]*//g)
 {                                                                   # lösche alle Extensions auch über mehrere Zeilen,*? findet die kürzeste Lösung
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen aller Extensions.\n";
 }
 
 if ($dateiinhalt =~ s/[ \t]*\<time\>.*\<\/time\>[\n\f\r]*//g)       # lösche alle Zeiten
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen aller Zeitstempel.\n";
 }
 
 if ($dateiinhalt =~ s/[ \t]*\<(type|magvar|geoidheight|src|fix|sat|hdop|vdop|pdop|ageofdgpsdata|dgpsid)\>(.|\s)*?\<\/\1\>[\n\f\r]*//g)
 {                                                                   # lösche alle wenig genutzten Tags
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen aller wenig genutzten Tags z.B. ($1).\n";
 }
 
 # Beispiel Garmin: <trkpt lat="46.929181013256311" lon="11.042494000867009">
 if ($dateiinhalt =~ s/(lat\=\"-?[0-9]{1,2}\.[0-9]{6,6})[0-9]*/$1/g) # kürze alle Latitudes auf 6 Stellen  
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach kuerzen aller Breiten z.B. $1\".\n";
 }
 
 if ($dateiinhalt =~ s/(lon\=\"-?[0-9]{1,3}\.[0-9]{6,6})[0-9]*/$1/g) # kürze alle Longitudes auf 6 Stellen  
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach kuerzen aller Laengen z.B. $1\".\n";
 }
 
 if ($dateiinhalt =~ s/(\<ele\>-?[0-9]{1,4}\.[0-9]{1,1})[0-9]*/$1/g) # kürze alle ele auf 1 Stelle  
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach kuerzen aller Hoehen z.B. $1</ele>.\n";
 }
 
 if ($dateiinhalt =~ s/(\<trkpt [- \taelnot\=\"\<\/\>\.\n\f\r0-9]*?)\<name\>.*?\<\/name\>[ \t\n\f\r]*(\<\/trkpt\>)/$1$2/g)
 {                                                         # lösche Namen aus Trackpunkten                                                                  
  $dateilaenge = length($dateiinhalt);                     # die sind meist generisch (Position 924) und nicht spezifikationsgerecht
  print "$dateilaenge Byte nach loeschen aller Namen aus Trackpunkten.\n";
 }
 #		<trkpt lat="50.9828877997922" lon="14.0912583060936">
 #			<ele>341.800010808589</ele>
 #			<name>Position 924</name>
 #		</trkpt>

	#	<trkpt lat="50.997956" lon="13.956475">
	#		<name>Position 1</name>
 #	</trkpt>

 if ($dateiinhalt =~ s/(\<trkpt [- \talnot\=\"\.0-9]*?\>)[ \t\n\f\r]*\<ele\>[ \t]*([-0-9\.]*)[ \t]*\<\/ele\>[ \t\n\f\r]*\<\/trkpt\>/$1\t\<ele\>$2<\/ele\>\<\/trkpt\>/g)
 {                                                         # Trackpunkte mit Höhe zum Einzeiler machen (mit Tab getrennt)                                                                 
  $dateilaenge = length($dateiinhalt);                     # macht die Liste lesbarer und spart ein paar Leerzeichen
  print "$dateilaenge Byte Trackpunkt und Hoehe als Einzeiler.\n";
 }
 #      <trkpt lat="36.988020" lon="-25.089889">
 #        <ele>511.4</ele>
 #      </trkpt>
 
 if ($dateiinhalt =~ s/(\<trkpt [- \talnot\=\"\.0-9]*?)\>[ \t\n\f\r]*\<\/trkpt\>/$1\/\>/g)
 {                                                         # Trackpunkte ohne Höhe zum Einzeiler machen                                                                 
  $dateilaenge = length($dateiinhalt);                     # macht die Liste lesbarer und spart ein paar Leerzeichen
  print "$dateilaenge Byte Trackpunkte ohne Hoehe als Einzeiler.\n";
 }
 #      <trkpt lat="37.755150" lon="-25.154172">
 #      </trkpt>

 if ($dateiinhalt =~ s/\<cmt\>((.|\s)*?)\<\/cmt\>\s*?\<desc\>\1\<\/desc\>/\<cmt\>$1\<\/cmt\>/g)
 {                           # Wenn im Kommentar dasselbe steht wie in Beschreibung, Beschreibung löschen  
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach Entfernung Dopplung Kommentar - Beschreibung z.B. \"$1\".\n";
 }
 
 if ($dateiinhalt =~ s/\<name\>((.|\s)*?)\<\/name\>\s*?\<cmt\>\1\<\/cmt\>/\<name\>$1\<\/name\>/g)
 {                           # Wenn im Namen dasselbe steht wie im Kommentar, Kommentar löschen
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach Entfernung Dopplung Name - Kommentar z.B. \"$1\".\n";
 }
 
 if ($dateiinhalt =~ s/\<name\>((.|\s)*?)\<\/name\>\s*?\<desc\>\1\<\/desc\>/\<name\>$1\<\/name\>/g)
 {                           # Wenn im Namen dasselbe steht wie in Beschreibung, Beschreibung löschen
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach Entfernung Dopplung Name - Beschreibung z.B. \"$1\".\n";
 }
 
 # Suche nach Stellung von Creator und Version nur im <GPX>-Tag
 # Wenn die Suchoperationen unten über die ganze Datei laufen müßten, dauern sie ewig
 # Deshalb vorher aufsplitten in 2 Varianten, Damit die Suche sicher was findet und im GPX-Header abbricht. 
 $dateiinhalt =~ /(\<gpx(.|\n)*?\>)/;
 $gpxtag = $1;
 if ($gpxtag =~ /version\=\"(.|\n)*?creator\=\"/)          # Tags stehen in der Reihenfolge Version - Creator
 {
  if ($dateiinhalt =~ s/\<gpx(.|\s)*?(version\=\"[0-9]\.[0-9]\")(.|\n)*?(creator\=\"(.|\n)*?\")(.|\n)*?\>/\<gpx $2 $4\>/)   # OK und schnell   
  {
   $dateilaenge = length($dateiinhalt);
   print "$dateilaenge Byte nach kuerzen des gpx-Tags (V1).\n";
  }
 }
 elsif ($gpxtag =~ /creator\=\"(.|\n)*?version\=\"/)       # Tags stehen in der Reihenfolge Creator - Version
 {
  if ($dateiinhalt =~ s/\<gpx(.|\n)*?(creator\=\"(.|\n)*?\")(.|\n)*?(version\=\"[0-9]\.[0-9]\")(.|\n)*?\>/\<gpx $5 $2\>/)   # ? kürzeste Lösung   
  {
   $dateilaenge = length($dateiinhalt);
   print "$dateilaenge Byte nach kuerzen des gpx-Tags (V2).\n";
  }
 }
 
 if ($dateiinhalt =~ s/\<gpx\>/\<gpx version\=\"1\.1\"\>/) # falls nur <gpx> dasteht, Version anhängen    
 {
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach korrigieren eines fehlerhaften gpx-Tags.\n";
 }
 
 if ($dateiinhalt =~ s/\&//g)                    # Kaufmans-Und entfernen (sonst lädt die Datei nicht im GPX-Editor) 
 { 
  $dateilaenge = length($dateiinhalt);
  print "$dateilaenge Byte nach loeschen problematischer Sonderzeichen.\n";
 }
 
 print "----- fertig -----\n\n";
 
 my $einsparung = $originallaenge - $dateilaenge;          # Anzeige eingesparter Byte und Schrumpfung um x %
 my $einsparungprozent = 100 * $einsparung / $originallaenge;
 printf ("Einsparung: $einsparung Byte oder %.0f%%.\n\n", $einsparungprozent );
 
 $dateiinhalt =~ /(\<gpx(.|\n)*?\>)/;
 print "GPX-Tag final:\n$1\n\n\n";
 
 open (GPXNEU, '>', $gpxdateineu) or die "Problem bei Anlegen der Datei: $!\n";
 binmode (GPXNEU);
 print(GPXNEU $dateiinhalt);
 
 close (GPXNEU);
}

#<STDIN>;                    # läßt das DOS-Fenster offen