Opened by root at 2006-03-31 20:40
User since
2003-08-15
120 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
120 Artikel
BenutzerIn
Ich weiss! Das kenne ich!
Aber ich will in Perl ja auch noch ein wenig was machen wenn sie nicht existiert. Ich müsste also erst mal gucken ob sie da ist. Dann Tabelle erstellen und dann bissi Zeug, so Mail an den Admin und so...
Glaub so ist es dann ganz umgänglich. Jemand was zu meckern??? Speed? Sicherheit???\n\n
<!--EDIT|root|1143831165-->
Aber ich will in Perl ja auch noch ein wenig was machen wenn sie nicht existiert. Ich müsste also erst mal gucken ob sie da ist. Dann Tabelle erstellen und dann bissi Zeug, so Mail an den Admin und so...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $dbh = DBI->connect("DBI:mysql:database=".$$CONFIG_ref{'db_name'}.";host=".$$CONFIG_ref{'db_host'},$$CONFIG_ref{'db_user'},$$CONFIG_ref{'db_passwd'})
or return $$SITE_LANGUAGE_ref{"Die Datenbank kann nicht angesprochen werden."}." Error: ".$DBI::errstr;
my $statement="show tables";
my $sth = $dbh->prepare($statement) or die("Kann keine Abfrage ($statement) starten:$DBI::errstr");
$sth->execute;
my %tables = ();
while (my $row = $sth->fetchrow)
{
$tables{$row} = 1;
}
return join "<br>\n", keys %tables; # als testGlaub so ist es dann ganz umgänglich. Jemand was zu meckern??? Speed? Sicherheit???\n\n
<!--EDIT|root|1143831165-->