Umlaute im Argumentwert eines CGI-Skripts (gelöst) (Perl/CGI)

[thread]17030[/thread]

Umlaute im Argumentwert eines CGI-Skripts [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
miwieg

2011-12-30 09:43
User since
2006-07-16
59 Artikel
BenutzerIn
Hallo,

Ich möchte ein CGI-Skript schreiben, das ein Webformular einliest und deren Inhalt auch Umlaute beinhalten darf.
Code: (dl )

1 2 3

use strict; use CGI qw(:standard); my $dish = param("dish");
$dish kann nun durchaus Strings mit Umlauten besitzen, z.B. "Müsli".
Da nun $dish als Query für eine Datenbank benutzt werden soll, deren Schlüssel auf Umlaute normalisert wird (d.h. der Schlüssel wäre "Muesli" und nicht "Müsli"), muss ich die Umlaute in $dish ebenfalls normalisieren.

Ein einfacher regulärer Ausdruck
Code: (dl )

$dish =~ s/ü/ue/g;
ist nicht wirksam, da im String "ü" irgendwie anders kodiert ist.
Wie muss ich $dish konvertieren, so dass der obige reguläre Ausdruck matcht?

Vielen Dank im Voraus!
- +2 replies
- bianca
  
  2011-12-30 09:50
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Hatten wir gerade erst in dem anderen Ajax Thread.
  Der Charset muss auf der HTML-Seite und im Perlscript gleich sein.
  10 print "Hallo"
  20 goto 10
  - miwieg
    
    2011-12-30 10:02
    
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Vielen Dank für den Hinweis.
    Könntest Du mir bitte einen Link schicken.
    Ich hatte schon vorher nach entsprechenden Einträgen gesucht und nichts gefunden.
- GwenDragon
  
  2011-12-30 10:06
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Je nach Zeichenkodierung (charset) können länderspezifische Zeichen wie Umlaute anders kodiert sein.
  Das charset wird durch die Webseite definiert, welche das Formular beinhaltet.
  Entweder durch den HTTP-Header Content-Type oder als HTML-Äquivalent durch ein META-ELement mit Namen http-equiv.
  Oder explizit durch das Festlegen im Formular mit dem Attribut accept-charset="....".
  
  Beispiel für das Ä:
  ISO-8859-1 (Latin1): c4
  UTF-8: c3 84
  
  Weiteres zu Umlauten und Perl:
  http://perlmeister.com/snapshots/200707/index.html
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2011-12-30 10:08
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Achtung: Manche Browser senden Zeichen außerhalb des Zeichensatzes immer als UTF-8. Manche wie ältere Internet Explorer senden das fälschlich als Windows-1252 und ignorieren eingestellte charsets.
  Das musst du testen oder ältere Browser ignorieren.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - miwieg
    
    2011-12-30 10:23
    
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Vielen Dank für die Hinweise.
    
    Hier noch eine Zusatzinfo:
    Das komische ist, dass wenn ich $dish direkt auf einer neuen HTML-Website ausdrucke, ist alles OK. In allen Browsern erscheint korrekterweise "Müsli" und *keine* merkwürdigen Zeichenketten.
    Nur im Perl-Skript wird "ü" nicht erkannt.
    Hat dies eine Relevanz für die Ursache des Problems?
- +3 replies
- GwenDragon
  
  2011-12-30 10:32
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wenn du das ü direkt in das Perl-Programm schreibst, was für deine Kodierung verwendet denn dein Editor?
  Wenn du UTF8 verwendest, sollte im Programm noch
  
  Code (perl): (dl )
  
  use utf8;
  
  stehen!
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - miwieg
    
    2011-12-30 10:55
    
    User since
    2006-07-16
    59 Artikel
    BenutzerIn
    
    Nach unzähligen Ausprobieren scheint es jetzt wohl die Kodierung im HTML-Formular gewesen zu sein. Ich habe sie explizit auf utf-8 gesetzt und danach scheint nun alles zu funktionieren.
    
    Vielen Dank an die Hilfestellungen!
    - GwenDragon
      
      2011-12-30 13:11
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Splitted to *war Umlaute im Argumentwert (...) split
      
      Original message by 'bianca':
      
      Quote
      Wußte ichs doch. Und ich wette, dass ist bei Marti...
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-12-30 09:43.