netro -
Joined: 09 Aug 2003 Posts: 8
|
Posted: Fri Aug 22, 2003 12:36 am Post subject: using characters å ä ö |
|
|
when i try to use characters å ä and ö in my script:#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g; # replace newlines with spaces
$value =~ s/\r//g; # remove hard returns
$value =~ s/\cM//g; # delete ^M's
$FORM{$name} = $value;
}
open(OUTF,">c:/$FORM{'name'}.html") or dienice("Couldn't open survey.out for writing: $!");
if ($FORM{'howreach'} = 1) {
$FORM{'howreach'}=Komedi;
} elsif ($FORM{'howreach'} = 2) {
$FORM{'howreach'}=Action;
} elsif ($FORM{'howreach'} = 3) {
$FORM{'howreach'}=Skräck;
} elsif ($FORM{'howreach'} = 4) {
$FORM{'howreach'}=Drama;
} elsif ($FORM{'howreach'} = 2) {
$FORM{'howreach'}=Thriller;
}else {
$FORM{'howreach'}=Annat;
}
print OUTF "$FORM{'name'}<br>$FORM{'email'}<br>";
print OUTF "$FORM{'howreach'}<br>$FORM{'rating'}<br>";
%boxes = ( "des" => "Website Design",
"svr" => "Web Server Administration",
"com" => "Electronic Commerce",
"mkt" => "Web Marketing/Advertising",
"edu" => "Web-Related Education" );
foreach $key (keys %boxes) {
if ($FORM{$key} == 1) {
print OUTF "$key,";
}
}
print OUTF "<br>$FORM{'comments'}\n";
close(OUTF);
print <<EndHTML;
<html><head><title>johhanes helvete</title></head>
<body>
<h2>Hallå Thomas</h2>
Nu är det klart.<p>
<a href="http://localhost/index1.html">tillbaka till huvudsidan</a><p>
</body></html>
EndHTML
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}
i get an error saying:Unrecognized character \xE4 at hell.cgi line 24.
what can i do? :cry: |
|