#!/usr/bin/perl -w
#
use strict;
my @html;
open IN, "gps.pl.htm" or die "Datei nicht gefunden / Datei konnte nicht geoeffnet werden.";
@html = ;
chomp @html;
close IN;
foreach (@html) {
convert_umlaut($_);
}
# convert_umlaut:
#
sub convert_umlaut {
my $temp = shift;
print "Vorher: $temp"; # \ n noch rein, kann Forum nicht
while ($temp =~ /\ä\ü\ö\ß/i) {
# Vor das & noch jeweils ein \
# Forum kann das leider nicht, ersetzt es dann in ä, ö ...
#
$temp =~ s/\ö/ö\;/g;
$temp =~ s/\ü/ü\;/g;
$temp =~ s/\ä/ä\;/g;
$temp =~ s/\Ö/Ö\;/g;
$temp =~ s/\Ü/Ü\;/g;
$temp =~ s/\Ä/Ä\;/g;
$temp =~ s/\ß/ß\;/g;
}
print "Nacher: $temp"; # \ n noch rein, kann Forum nicht
}