Thread [Tk] File auswählen unicode (31 answers)
Opened by welle at 2013-11-01 20:07

guest welle
 2013-11-01 20:07
#171719 #171719
Hallo,

ich werde verrückt. Ich will einfach auf einer Windows Maschine eine Tk-Gui haben, um eine Datei auszuwählen (es geht um eine Sqlite-Datenbank). Die Datei befindet sich in einer Dirctory, die auch Umlaute hat. Hier scheitere ich. Benutzt habe ich z.B. das hier:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use strict;
use warnings;
use Tk;
use DBD::SQLite;
my $mw = new MainWindow;
my $types = [ ['Text', '.db'], ['All Files', '*'],];
my $file= $mw->getOpenFile(-filetypes => $types);
my $lco;

#connecting to sqlite
my $dbh = DBI->connect("dbi:SQLite:$file", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 0 });
my $all = $dbh->selectall_arrayref("SELECT language FROM metadata");
foreach my $row_db (my @all) {
($lco) = @$row_db;
}
print "Connected: $lco\n";


modedit Editiert von GwenDragon: seltsame +-Umbrüche aus Code entfernt
Last edited: 2013-11-06 08:39:14 +0100 (CET)

View full thread [Tk] File auswählen unicode