[MySQL]Problème avec load data infile

Version imprimable

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:

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:

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 :koi:, ma localisation est bonne pourtant.
Quelqu'un peut-il m'aiguiller ?

@++

16/03/2007, 11h53
djibril

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

Code:

my $file = $table;

Pour la programmation Perl voir dans les cours et tutoriels : http://perl.developpez.com/cours/
16/03/2007, 13h07
GLDavid
Salut Djib'

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

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 ! :mrgreen:
16/03/2007, 13h17
GLDavid
Trouvé !
Ma requête était incomplète, il fallait que j'ajoute le mot clé local !
Code:

1 2 my $reket = "load data local infile '$file' into table $table";
Et ça marche :yaisse2:

@++
16/03/2007, 13h19
lami20j

Salut,

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

Je n'ai rien dit :D
16/03/2007, 13h36
djibril
Citation:
Envoyé par GLDavid

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

Code:

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

Et ça marche :yaisse2:

@++
:king: :chin: