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

guest welle
 2013-11-03 11:04
#171730 #171730
Mit diesem Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use UTF8;
use Tk;
use DBD::SQLite;
use Data::Dumper;
$Data::Dumper::Useqq=1;


my $mw = new MainWindow;
my $types = [ ['Text', '.db'], ['All Files', '*'],];
my $file_1= $mw->getOpenFile(-filetypes => $types);
my ($file_2)=glob('C:/Users/FC/Desktop/*/DATABASE.db');

print Dumper($file_1);
print Dumper($file_2);

#connecting to sqlite
my $dbh = DBI->connect("dbi:SQLite:$file_2", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 0 });

bekomme ich:
Quote
$VAR1 = "C:/Users/FC/Desktop/\x{fc}folder/DATABASE.db";
$VAR1 = "C:/Users/FC/Desktop/\374folder/DATABASE.db";

Egal welche der 2 Paths ich verwende, ich kann mich nicht mit der Datenbank verbinden...
Last edited: 2013-11-03 11:13:55 +0100 (CET)

View full thread [Tk] File auswählen unicode