Discussion :

[GLDavid]

Bonjour

J'essaie d'importer une base dans MySQL via Perl et DBI. Je veux utiliser la commande SQL load data infile pour remplir mes tables. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
my $database = "Ensembl_Homo_sapiens";
my $dbh = DBI->connect("DBI:mysql:database=".$database.";host=localhost",
                         "gldavid", "passpass",
                         {'RaiseError' => 1}) or die "$!\n";
foreach my $table (@tables){
	my $file = $table;
	$table =~ s/^\/home\/gldavid\/Snippets\/Perl\/getEnsemblHuman\/files\///;
	$table =~ s/\.txt\.table$//;
	my $reket = "load data infile '".$file."' into table Ensembl_Homo_sapiens.".$table;
	if(-e $file){
		print "Loading data into ".$table."\n";
		$dbh->do($reket);
	}
}
$dbh->disconnect();

Donc, pour tout fichier de données présents, je veux les charger.
Or, bien que les noms de fichiers et de tables soient corrects, j'ai cette erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DBD::mysql::db do failed: Can't get stat of '/home/gldavid/Snippets/Perl/getEnsemblHuman/files/regulatory_feature_object.txt.table' (Errcode: 13) at getEnsemblHuman.pl line 68.

Bizarre , ma localisation est bonne pourtant.
Quelqu'un peut-il m'aiguiller ?

@++

[djibril]

oui mais ton $file, c'est pas un fichier, mais une table sql!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $file = $table;

Pour la programmation Perl voir dans les cours et tutoriels : http://perl.developpez.com/cours/

[GLDavid]

Salut Djib'

Oui mais non !
Parce que si j'affiche la valeur des 2 scalaires, j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$table=regulatory_search_region $file=/home/gldavid/Snippets/Perl/getEnsemblHuman/files/regulatory_search_region.txt.table

Donc, à priori, c'est bon.
Mais j'ai toujours mon problème.
Merci à toi.

@++

PS: ça fait plaisir de te revoir !

[GLDavid]

Trouvé !
Ma requête était incomplète, il fallait que j'ajoute le mot clé local !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $reket = "load data local infile '$file' into table $table";

Et ça marche

@++

[lami20j]

Salut,

il me semble que le message Errcode 13 c'est pour les droits d'accès.

Je n'ai rien dit

[djibril]

Trouvé !
Ma requête était incomplète, il fallait que j'ajoute le mot clé local !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $reket = "load data local infile '$file' into table $table";

Et ça marche

@++