Perl

[Perl ] Comportement étrange avec DBI

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl ] Comportement étrange avec DBI

Titprem

:hello:

J'ai un comportement étrange avec le script (objet) ci-dessous qui utilise DBI (avec postrgres). Je cherche à insérer dans une table le contenu d'un fichier CSV :

Code :

sub insertion {
my ($this, $dbh) = @_;
my $fichier = "toto.csv";
my $sql = "COPY toto (col1, col2, col3) FROM '$fichier' WITH DELIMITER ';' NULL '';";
#print qx(cat $fichier);
$dbh->do($sql);
}

Lorsque je commente le print, ma table reste vide, et lorsque je le décommente, l'insertion dans ma table se fait bien !

Je ne comprends absolument pas la raison de ce fonctionnement... Une idée ? :??:

édit : version perl 5.10

Message édité par Titprem le 26-11-2014 à 12:29:05

Publicité

gilou

Modérateur
Modzilla

C'est peut être un bug.

Par contre, le ; a la fin de ton statement SQL, c'est normal?
J'aurais pensé que

Code :

my $sql = "COPY toto (col1, col2, col3) FROM '$fichier' WITH DELIMITER ';' NULL ''";
ou
my $sql = qq{COPY toto (col1, col2, col3) FROM '$fichier' WITH DELIMITER ';' NULL ''};

convenait.

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Titprem

Oui, on peut s'en passer.

Sinon, ça marche aussi en remplaçant le print par un simple :

Code :

qx(echo 'toto');

Et ça ne fonctionne plus si je commente le qx...

gilou

Modérateur
Modzilla

Et si tu fais un
$dbh->do($sql) or die $dbh->errstr;
tu as un message d'erreur?

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Titprem

J'aurais pu le préciser, mais quel que soit le résultat (insertion ou non dans la table), la requête me retourne une valeur nulle mais vraie ('0E0'). Donc je n'ai pas de die.

J'ai fait un tracelog :

Code :

DBI->trace(5, 'dbi.log');

et j'obtiens la même trace dans les deux cas (à une réfence de hash près et un threadid près).

C'est incompréhensible...

Message édité par Titprem le 26-11-2014 à 16:53:07

Titprem

J'ai fini par trouver, je pense, l'explication au phénomène : en fait, le fichier que je cherche à insérer étant petit, il n'est pas encore écrit sur le disque, mais juste stocké dans son buffer.

Donc lorsque je fais mon COPY, il prend un fichier... vide ! Donc il n'écrit logiquement rien dans la base !

Mais lorsque je fais appel à l'ordre 'qx', visiblement, ça entraine l'écriture du buffer dans le fichier, et donc l'insertion est alors correcte !

Et voilà !

Merci à gillou d'avoir pris le temps de se pencher sur mon problème. :jap:

Titprem

J'ai néanmoins un autre problème du coup, puisque je ferme bien mes fichiers avant de (tenter de) les copier...

Je ne comprends pas pourquoi il ne sont pas écrit sur disque au moment du close... :??:

édit : réponse : tout simplement parce que je ne les fermais pas correctement !

Problème résolu !

Message édité par Titprem le 26-11-2014 à 17:55:12

gilou

Modérateur
Modzilla

Ah! Donc c'était pas au niveau de DBI, mais au niveau de l'existence du fichier que tu passais en paramètres.
Sans plus d'infos contextuelle, je risquais pas de m'en douter.
Heureux de voir que c'est rentré dans l'ordre.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[Perl ] Comportement étrange avec DBI

Sujets relatifs
Créer un exécutable à partir d'un script Perl	help programmation perl
[RESOLU][PERL] Extraire chaines multiples dans une fichier	configuer perl sur wamp
Requête SQL basée sur paramètre et table un peu étrange	perl + xml::treebuilder
Faire un include d'un drive en perl	Très étrange problème de sheets.select
[perl]Aide pour l'installation d'un logiciel permettant le perl (noob)
Plus de sujets relatifs à : [Perl ] Comportement étrange avec DBI

Page générée en 0.050 secondes