Очистить базу данных postgres с помощью perl

Question

У меня есть скрипт очистки Postgres в bash, где я использовал несколько команд для разных таблиц, т.е.

• копировать данные во временную таблицу. то есть table1 -> temp_table1

• удалить данные из исходной таблицы на основе временных таблиц.

для обоих вышеуказанных шагов, для каждой таблицы, к которой я подключаюсь к базе данных. Есть ли способ подключиться к базе данных сразу и выполнить описанные выше шаги для разных таблиц, используя Perl.

Answer 1

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

Подробнее см. В документах DBI .