Thread [MySQL, Tk] Und nochmal: utf-8-kodierte Daten in Datenbank -> Tk::Text -> Datenbank (13 answers)
Opened by pktm at 2012-02-23 15:41

pktm
 2012-02-23 20:50
#156396 #156396
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Ok. Wenn ich das jetzt richtig verstehe, waren die Daten beim Import dekodiert, weil ich die Angabe beim Filehandle gemacht habe.
Hier ein Codeschnipsel aus dem import-Skript:

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
23
24
25
26
27
28
29
30
31
32
33
#!perl

use strict;
use warnings;
use utf8;
use FindBin qw/$Bin/;
use Data::Dumper qw/Dumper/;
use Text::CSV;
use DBI;
use SQL::Abstract;

my $dbh = DBI->connect('DBI:mysql:ling:127.0.0.1;mysql_enable_utf8=1', 'test', 'test');
die DBI::errstr() unless $dbh;

my $file = 'source.csv';
my $csv = Text::CSV->new ({
        sep_char => ';',
        empty_is_undef => 1,
        binary => 1,
}) or die "Cannot use CSV: ".Text::CSV->error_diag ();

open my $fh, "<:encoding(utf8)", $file or die "$file: $!";

while ( my $row = $csv->getline( $fh ) ) {
        
        # Absetzen des Import-Statements für 1 Zeile hier
        
}

$csv->eof or $csv->error_diag();
close $fh;

exit(0);
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread [MySQL, Tk] Und nochmal: utf-8-kodierte Daten in Datenbank -> Tk::Text -> Datenbank