purge base de données postgres utilisant perl

Question

I ont un script de purge Postgres dans bash où j'exécuter plusieurs commandes sur des tables différentes à savoir

• données de copie à table temporaire. par exemple table1 -> temp_table1

• Supprimez les données de la table basée sur les tables temporaires.

pour les deux étapes ci-dessus, pour chaque table que je connecte à la base de données. Y at-il un moyen de se connecter à la base de données à la fois et d'exécuter les étapes ci-dessus sur différentes tables en utilisant Perl.

Answer 1

use DBI; 
my $dbh = DBI->connect($data_source, $username, $auth, \%attr); 
$dbh->do($statement1); 
$dbh->do($statement2); 

Consultez les documents DBI pour plus de détails.