Само да допълня : системното query, което Георги е дал, не показва
всичко таблци. Даже и не гледах, кои вади и кои не. В този скрипт съм
заместил неговото с далеч по просто такова.
#!/usr/bin/perl
use DBI;
my $db = $ARGV[0];
our $dbh =
DBI->connect("dbi:Pg:dbname=$db;host=localhost;port=5432","postgres","",{'RaiseError'
=> 1});
my $table;
my $del_query;
my $statement = $dbh->prepare("SELECT tablename FROM pg_tables WHERE
tablename NOT LIKE 'sql_%' AND tablename NOT LIKE 'pg_%';");
$statement->execute;
while(($table) = $statement->fetchrow_array){
$del_query .= "TRUNCATE TABLE \"$table\";";
}
my $del_statement = $dbh->prepare($del_query);
$del_statement->execute;
print "$del_query";
Yavor Doganov wrote:
On Tue, Jun 14, 2005 at 06:56:59AM +0300, Daniel Ivanov wrote:
Става. Но си го написах на перлата.
При добро желание може и да споделиш, както е направил Георги
Чорбаджийски.
