使用perl清除postgres数据库

Question

我在bash中有一个Postgres清除脚本，我曾经在不同的表上运行多个命令，即

• 将数据复制到临时表。即 table1 - ＆gt; temp_table1

• 从原始表中删除数据 基于临时表。

对于上述两个步骤，对于我连接到数据库的每个表。有没有办法立即连接到数据库并使用Perl在不同的表上执行上述步骤。

Answer 1

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

有关详细信息，请参阅DBI文档。