मेरा मानना है कि आपको जिस भाषा में सबसे ज्यादा पसंद है उसमें आपको एक स्क्रिप्ट लिखनी होगी। आप जानकारी_स्कीमा डीबी से स्कीमा में तालिकाओं की एक सूची प्राप्त कर सकते हैं, फिर उन पर पुनरावृति कर सकते हैं, जो आपको पसंद है उसे काटकर।
क्वेरी कुछ इस तरह होगी:
SELECT table_name FROM information_schema.tables WHERE table_schema = 'test' AND table_name NOT IN ('table1', 'table2');
संपादित करें :यहां पर्ल का उपयोग करके एक उदाहरण दिया गया है:
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect("some_dsn");
my $sth = $dbh->prepare(q{SELECT table_name FROM information_schema.tables WHERE table_schema = 'test' AND table_name NOT IN ('table1', 'table2')});
$sth->execute();
$sth->bind_columns(\my $table_name);
while($sth->fetch) { $dbh->do(q{TRUNCATE TABLE } . $table_name) }