#!/usr/bin/perl -w
use DBI;
print $DBI::VERSION\n;
my $dbh = DBI-connect() or die unable to connect: , $DBI::errstr;
my @tables = $dbh-tables() or die Tables failed: , $DBI::errstr;
foreach my $table (@tables) {
print table: $table\n;
}
$dbh-disconnect;
exit;
Results:
You could, in the loop, do something like:
next if ($tablename =~ /^MSys/);
Regards,
Jeff
-Original Message-
From: Brad Smith [mailto:[EMAIL PROTECTED]]
Sent: Monday, December 02, 2002 8:54 PM
To: [EMAIL PROTECTED]
Subject: table names worked... but...
Ok, I managed