#!/usr/bin/perl 
use utf8;
use strict;
use warnings;
use DBI;

#first exmple without any unicode in directory
my $PathCorpusDB1="a/databaseTest1.db";

print "Creating following database $PathCorpusDB1 ...\n";
my $dbh1 = DBI->connect("dbi:SQLite:$PathCorpusDB1", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 1 });
$dbh1->do( "CREATE TABLE data ( ID INTEGER PRIMARY KEY, text, filename)" );
$dbh1->disconnect;

print "Connecting to $PathCorpusDB1\n";
$dbh1 = DBI->connect("dbi:SQLite:$PathCorpusDB1", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 1 });
my $AllDbText_ref1 = $dbh1->selectall_arrayref("SELECT filename FROM data");
$dbh1->disconnect;

#second example with unicode in directory
my $PathCorpusDB2="ü/databaseTest2.db";

print "Creating following database $PathCorpusDB2 ...\n";
my $dbh2 = DBI->connect("dbi:SQLite:$PathCorpusDB2", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 1 });
$dbh2->do( "CREATE TABLE data ( ID INTEGER PRIMARY KEY, text, filename)" );
$dbh2->disconnect;

print "Connecting to $PathCorpusDB2\n";
$dbh2 = DBI->connect("dbi:SQLite:$PathCorpusDB2", "", "", { RaiseError => 1, AutoCommit => 1, PrintError => 1 });
my $AllDbText_ref2 = $dbh2->selectall_arrayref("SELECT filename FROM data");
$dbh2->disconnect;