Opened by JoeD at 2008-09-10 12:52
User since
2008-09-10
3 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-09-10
3 Artikel
BenutzerIn
Hi,
zuerst einmal vielen Dank für die Antworten! Ich habe jetzt denke ich alle von euch genannten Fehler beseitigt, und das folgende Script funktioniert:
Die decode_utf8-Funtion ist bei mir offenbar nötig, dann werden die Umlaute aus dem Parameter korrekt dargestellt, und auch die, die ich direkt im Quellcode angebe.
Jetzt muss ich einen UTF-8-String in iso-8859-1 umwandeln, da ich daraus einen Dateinamen machen will. Das funktioniert mit Encode::from_to($str, 'utf8', 'iso-8859-1') leider nicht. Wie denn?
(Es geht nicht nur um einen Dateinamen sondern auch um Mailversand, den ich nicht mit UTF-8 durchführen möchte, obwohl die meisten Mailprogramme ja UTF-8 anzeigen können...)
zuerst einmal vielen Dank für die Antworten! Ich habe jetzt denke ich alle von euch genannten Fehler beseitigt, und das folgende Script funktioniert:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use strict;
use utf8;
use CGI;
use Encode qw(decode_utf8);
binmode STDOUT, ':encoding(UTF-8)';
binmode STDIN, ':encoding(UTF-8)';
my $q = CGI->new;
$q->charset('UTF-8');
print $q->header();
print "äöü";
print decode_utf8($q->param('name'));
Die decode_utf8-Funtion ist bei mir offenbar nötig, dann werden die Umlaute aus dem Parameter korrekt dargestellt, und auch die, die ich direkt im Quellcode angebe.
Jetzt muss ich einen UTF-8-String in iso-8859-1 umwandeln, da ich daraus einen Dateinamen machen will. Das funktioniert mit Encode::from_to($str, 'utf8', 'iso-8859-1') leider nicht. Wie denn?
(Es geht nicht nur um einen Dateinamen sondern auch um Mailversand, den ich nicht mit UTF-8 durchführen möchte, obwohl die meisten Mailprogramme ja UTF-8 anzeigen können...)