CGI decode-encode Frage (solved) (Perl/CGI)

[thread]16647[/thread]

CGI decode-encode Frage [solved]

Tags: perl5 CGI Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+5 replies
Kuerbis

2011-08-22 11:19
User since
2011-03-20
955 articles
BenutzerIn
Stimmt das so - ich sollte alle Strings von Hand encodeieren weil ein "binmode STDOUT, ':encoding(utf-8)';" würde verschickte Nichttext-Dateien zerstören?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/local/bin/perl use warnings; use 5.012; use utf8; use Encode qw(decode encode); use CGI qw(:standard); my $in = decode 'utf-8', param( 'in' ) || 'Hello World'; print header( -charset => 'UTF-8' ), start_html(), p( encode 'utf-8', $in ), p( encode 'utf-8', 'eins' ), p( encode 'utf-8', 'zwei' ), p( encode 'utf-8', 'drei' ), p( encode 'utf-8', 'vier' ), p( encode 'utf-8', 'fünf' ), p( encode 'utf-8', 'sechs' ), end_html;
Last edited: 2011-08-22 11:22:33 +0200 (CEST)
- moritz
  
  2011-08-22 11:30
  
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  
  2011-08-22T09:19:42 Kuerbis
  Stimmt das so - ich sollte alle Strings von Hand encodeieren weil ein "binmode STDOUT, ':encoding(utf-8)';" würde verschickte zerstören?
  
  Was fuer "Nichttext-Dateien" denn?
  
  Wenn du Bilder separate auslieferst (aus Performancegruenden moeglichst nicht durch CGI, sonderm vom Webserver direkt), gibt es eigentlich keinen Grund, "Nichttext-Dateien" auszuliefern.
  Perl 6 - Perls Zukunft
- +2 replies
- pq
  
  2011-08-22 11:44
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  wenn du binärdateien verschickst, macht du vermutlich eh einen anderen header usw., dann kannst du auch einen anderen binmode setzen. ist ja nicht so, dass du nicht weisst, ob du binärdateien auslieferst oder nicht.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Kuerbis
    
    2011-08-22 13:00
    
    User since
    2011-03-20
    955 articles
    BenutzerIn
    
    Viele Dank (ich dachte mir, vielleich macht man das so als Vorsichtsmaßanme).
- rosti
  
  2011-08-22 21:13
  User since
  2011-03-19
  3571 articles
  BenutzerIn
  hi,
  
  die param()-Methode liefert Bytes:
  
  Code (perl): (dl )
  
  $bytes = $cgi->param('input');
  
  das können, utf-8-kodierte Zeichen sein oder anders kodierte Zeichen. Perl kennt an dieser Stelle keine Kodierung sondern nur Bytes.
  
  Wenn Du das wieder ausgeben willst, Richtung Webserver, STDOUT erwartet auch Bytes.
  
  Sobald du jedoch Perl mitteilst, das der String in $bytes _utf-8-kodierte_ Zeichen sind, wird $bytes Perl-Intern als SvUTF8 repräsentiert (Encode.pm).
  
  In dem Moment, wo Du das auf STDOUT schickst, werden die Zeichen verstümmelt. Abhilfe: Der IOLayer muss einen Tag bekommen, dann ist die Darstellung korrekt:
  
  Code (perl): (dl )
  
  1 2 3
  
  binmode STDOUT, ':utf8'; print STDOUT $utf8_kodierte_Zeichenkette; # Darstellung ok
  
  --Rosti
  http://blog.rolfrost.de/
  
  The art of steam.

View all threads created 2011-08-22 11:19.