[PERL Postgresql] - impossible de vider une table avec la fonction "truncate table"

Bonjour, je suis nouveau sur le forum.

Je voudrais utiliser sous perl la fonction sql "truncate table" qui vide une table instantanément tout en conservant sa structure.

Malheureusment quand je lance mon script, perl ne fait état d'aucune erreur, mais quand je consulte en base, les données sont toujours là...

chers amis, comment faire pour faire fonctionner cette requete???? (delete from where étant très long, truncate est bien plus puissant)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

--------------------------------------------   use strict; use DBI; use File::Basename; use File::Copy qw/ move mv /; use lib "$ENV{'HOME'}/public_html/validation/"; use connection;     my $dbd = connection::connect_taxation_DB ();   ################################ # TRUNCATE # ################################   #Je prépare ma requete SQL my $requete = 'TRUNCATE bati_52';   my $prep = $dbd->prepare($requete) or die 'Impossible de préparer la requête : '.$dbd->errstr;   #J"execute ma requete SQL $prep->execute() or die 'Impossible d\'exécuter la requête : '.$prep->errstr;     $prep->finish;     $dbd->disconnect;     <>;

---

Hum, je ne connais pas vraiment Postgresql, mais la syntaxe Perl me paraît correcte à vue de nez. Quelques questions pour essayer de trouver des pistes.

Je ne sais pas ce que fait cette ligne qui semble faire appel à un module "maison":

Code:

---

1 2	my $dbd = connection::connect_taxation_DB ();

---

Est-ce que, après avoir exécuté cette commande, tu peux exécuter avec succès d'autres requêtes SQL, par exemple un SELECT ou un DELETE FROM? Je désire savoir si tu te connectes bien correctement à la base et peux y exécuter des requêtes SQL autres.

Est-ce que ça fonctionne si tu exécutes la commande:

Code:

---

1 2	TRUNCATE bati_52

---

à l'invite d'un environnement psql? (Je pense à un éventuel problème de droits ou privilèges.)

J'ai bien compris que tu désires utiliser un truncate pour des raisons de performances, mais est-ce que tu arrives à vider ta table avec un DELETE FROM?

Bonjour lolo,

my $dbd = connection::connect_taxation_DB (); ---> c'est effectivement un fichier externe avec les données de connexion à la base de données.

Select et delete from fonctionnent parfaitement.

TRUNCATE bati_52 ne donne rien...

Citation:

---

Envoyé par bibimgn

TRUNCATE bati_52 ne donne rien...

---

Tu veux dire que ça ne marche pas non plus à l'invite d'un environnement psql? Cela pourrait bien confirmer un éventuel problème de privilèges. Et tout cas, cela semble indiquer qu'il ne s'agit sans doute pas d'un problème Perl, mais plutôt d'un problème PortgreSQL.

Bonjour,

En principe, dans les docs, pour les erreurs, ils utilisent $DBI::errstr.

Et si tu faisais un essai avec do au lieu de prepare et execute ?

Bonsoir,

Perl et les bases de données (DBI)

Bonne lecture.

Bonjour, j'ai modifié mon code de la sorte, mais ça n'a pas fonctionné...

La requête fonctionne en SQL pur sur le SGBD; mais sur le perl toujours pas...

----------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

use strict; use DBI; use File::Basename; use File::Copy qw/ move mv /; use lib "$ENV{'HOME'}/public_html/validation/"; use connection;     my $dbd = connection::connect_taxation_DB ();   ################################ # TRUNCATE # ################################   #Je prépare ma requete SQL my $requete = 'TRUNCATE bati_52';   my $prep = $dbd->do($requete) or die 'Impossible de préparer la requête : '.$DBI::errstr;       $dbd->disconnect;     <>;

---

Citation:

---

Envoyé par Lolo78

Tu veux dire que ça ne marche pas non plus à l'invite d'un environnement psql? Cela pourrait bien confirmer un éventuel problème de privilèges. Et tout cas, cela semble indiquer qu'il ne s'agit sans doute pas d'un problème Perl, mais plutôt d'un problème PortgreSQL.

---

Cela fonctionne bien sur PostgreSQL...

Bonjour,

essaie peut-être la syntaxe suivante:

Code:

---

1 2	my $requete = 'TRUNCATE TABLE bati_52';

---