CGI + MySQL = UTF8-Problem (solved) (Allgemeines zu Perl)

[thread]17976[/thread]

CGI + MySQL = UTF8-Problem [solved]

Tags: perl5 DBI MySQL CGI Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+4 replies

maral

2012-12-10 22:54

User since
2011-12-03
12 articles
BenutzerIn
[default_avatar]

In MySQL hab ich folgende Datenbank:

Code: (dl )

create database adressbuch 
CHARACTER SET = 'utf8'
COLLATE = 'utf8_general_ci';

CREATE TABLE `country` (
  `country_id` varchar(2) NOT NULL,
  `name` varchar(50) DEFAULT NULL,
  `iso3` varchar(3) DEFAULT NULL,
  PRIMARY KEY (`country_id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

Mit einem Apache Server hole ich mir die Daten per CGI

Code (perl): (dl )

#!/usr/bin/perl -w

use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser set_message);
use DBI;
use Encode;
set_message('There is a problem in the script. 
Send me a mail to (<a href="mailto:xy@z.net">xy@z.net</a>), 
giving this error message and the time and date of the error.');

print "Content-type: text/html\n\n";


########################################################################
# program_name
########################################################################
my $script_name = $ENV{'SCRIPT_FILENAME'}; #get scriptname from cgi

if (defined($script_name) != 1) {
        # for test local
        $script_name = $0;      # get scriptname
}
$script_name =~ s/^.+\///g;


########################################################################
# parameter
########################################################################

our $param_table     = param('table');  # name of the table


$param_table = ''               unless defined $param_table;


my $sql_statment = '';
my $title = 'Adressbuch';
if ($param_table eq '') {
        $sql_statment = "SELECT table_name FROM information_schema.tables where table_schema='adressbuch';";
        $title .= ' - Alle Tabellen';
} else {
        $sql_statment = "SELECT * FROM ".$param_table.";";
        $title .= ' - Tabelle '.$param_table;
}

########################################################################
# Begin HTML
########################################################################

###################################################################################
# HTML Head, Title
###################################################################################
print <<HTML_HEAD;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta name="description" content="Adressenbuch" />
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>$title</title>
</head>
<body>
HTML_HEAD

print "<h1>".$title."</h1>";


my $dbh = DBI->connect( 'dbi:mysql:adressbuch',
                        'root',
                        '',
                      ) || die "Database connection not made: $DBI::errstr";


my $sth = $dbh->prepare($sql_statment) or die ($dbh->errstr);
$sth->execute or die $sth->errstr;


print "<table>";
while (my @array = $sth->fetchrow_array()) {
   print "<tr>";

   foreach (@array) {
                if ($param_table eq '') {
                        print "\t<td>".'<a href="'.$script_name.'?table='. $_ .'">'.$_.'</a>'."</td>\n";
                } else {
                        print "\t<td>", $_, "</td>\n";
                }
   }
   print "</tr>\n";
}
print "</table>";
$dbh->disconnect();

print '</body>';
print '</html>';

und bekomme dann aber

Code: (dl )

1
2
3

AL 	Albanien 	ALB
AT 	�sterreich 	AUT
CA 	Kanada 	CAN

Für Österreich auf der Webseite ein � für Ö.

In MySQL selber krieg ich aber:

Code: (dl )

localhost adressbuch>select * from country limit 3;
+------------+-------------+------+
| country_id | name        | iso3 |
+------------+-------------+------+
| AL         | Albanien    | ALB  |
| AT         | Österreich  | AUT  |
| CA         | Kanada      | CAN  |
+------------+-------------+------+
3 rows in set (0.00 sec)

An welcher Stelle wird das "Ö" verhunzt? Kann das an irgendeiner Apache Einstellung liegen? System: Ubuntu 12.04, perl v5.14.2, Apache/2.2.22 (Ubuntu), Firefox 17.01

Vielen Dank für Eure Hilfe. Gleich noch ein großes Lob an alle hier, hab schon viel aus dem Forum gelernt.

clms

2012-12-10 23:16
User since
2010-08-29
373 articles
BenutzerIn
2012-12-10T21:54:53 maral
An welcher Stelle wird das "Ö" verhunzt? Kann das an irgendeiner Apache Einstellung liegen?

Es kann an Apache, MySQL oder Perl liegen :-(
Ich kann auch nur spekulieren.

Interessant wäre es auch zu wissen, in welchem Zeichensatz die direkte/korrekte Ausgabe von MySQL erfolgt. UTF8 oder iso-latin-1? Hast Du das mal überprüft?

Ich hatte das gleiche Problem mit umgekehrten Vorzeichen. Ich wollte iso-latin-1 aus MysQL lesen und die Datenbank nutzte das auch als Charset.
Wenn Perl via DBI aus der Datenbank gelesen hat, bekam es aber trotzdem utf8.

Bei mir war die Lösung nach dem Öffnen der Verbindung zur Datenbank, diese explizit auf iso-latin-1 umzustellen.
Code (perl): (dl )

1 2

my $dbh = DBI->connect( ...) or die "..."; $dbh->do("set names 'latin1'") or die "...";
Du kannst ja mal probieren, ob bei Dir ein SQL-Befehl set names 'utf8' (oder so ähnlich) hilft.
+2 replies
topeg

2012-12-11 00:38
User since
2006-07-10
2611 articles
BenutzerIn
Erstmal UTF-8 auf STDOUT erzwingen:
Code (perl): (dl )

binmode(STDOUT, ":encoding(UTF-8)");
Dann sicher stellen das aus der DB UTF-8 kommt:
Code (perl): (dl )

$dbh->{'mysql_enable_utf8'}=1;
Nun noch den passenden Header:
Code (perl): (dl )

print CGI::header(-type => "text/html", -charset => "UTF-8" );
Es kann nun nötig sein die CGI-Parameter zu dekodieren:
Code (perl): (dl )

1 2

use Encode; sub param { return decode("UTF-8", CGI::param(@_)); }
- maral
  
  2012-12-11 20:06
  
  User since
  2011-12-03
  12 articles
  BenutzerIn
  
  Der Tipp mit dem binmode hat bei mir zur Lösung des Problems geführt.
  
  Allerbesten Dank auch für die anderen Tipps.

View all threads created 2012-12-10 22:54.