Textdatei: Groß-/Kleinschreibung von Umlauten ändern

[Alexander (HH)]

Wenn ich dein setlocale(LC_CTYPE, "de_DE"); noch einfüge, bekomme ich einen Internal Server Error :-(

Uiuiui, was hat Strato da bloß wieder angestelllt? ;-)

Probier mal sowas:

#!/usr/bin/perl -w
use strict;
use locale;
use POSIX qw(locale_h); # RTFM: perllocale

print "Content-Type: text/plain\r\n\r\n";
eval {
  setlocale(LC_CTYPE, "de_DE");
};
if ($@) {
  print "Fehlermeldung: $@\n";
} else {
  print "Kein Fehler, 500 Internal Server Error war eine Halluzination\n";
}

Alexander