 
|
| Echter Managed-Service: Wir kümmern uns für Sie um alle notwendigen
Dinge um einen stabilen und sicheren Serverbetrieb zu gewährleisten.
Das bedeutet weit mehr als nur automatische Sicherheitsupdates. |
 mehr Informationen
|
|
| Sie kümmern sich im Wesentlichen selbst um Ihren Server, nur nach
Bedarf greifen wir mit ein. Die zuverlässige Hardware und die
Hochleistungs-Anbindung garantieren vollste Zufriedenheit. |
|
mehr Informationen
|
|
|
Der Einstieg in den Webhosting-Bereich. Für kleine bis mittlere Lösungen. Viel Leistung sowie Speicherplatz und inklusiv Traffic gepaart mit dem bekannten PromServer-Support. Immer freundlich und hilfsbereit!
|
|
mehr Informationen
|
|
|
|
professional managed server |
FAQ: MySQL: Wie greife ich mit Perl via DBI auf MySQL zu ?
| Artikel ID: |
|
000056 |
| Bewertung: |
|
1.8 / 5.0 (11 votes)
|
| Views: |
|
1093 |
|
Hier ein kleines Demoskript:
#!/usr/bin/perl
use DBI;
$database='demodb';
$hostname='localhost';
$port=undef;
$user='username';
$password='SagIchNicht';
$selecttable='tabelle';
$dsn = "DBI:mysql:$database:$hostname:port";
if ($compression) { $dsn .= ";mysql_compression=1"; }
$dbh = DBI->connect($dsn, $user, $password);
if (!defined($dbh)) {
print "Error beim Zugriff auf die DB\n";
}
print "Liste aller Tabellen:\n";
print "---------------------\n";
@tables = $dbh->func( '_ListTables' );
foreach $table ( @tables ) {
print "Table: $table\n";
}
$sth = $dbh->prepare("SELECT * FROM $selecttable");
$sth->execute;
$numRows = $sth->rows;
print "Satzanzahl: $numRows\n";
my $names = $sth->{'NAME'};
my $numFields = $sth->{'NUM_OF_FIELDS'};
for (my $i = 0; $i < $numFields; $i++) {
printf("%s %s", $$names[$i], $i ? "," : "");
}
print "\n-------------------\n";
while (my $ref = $sth->fetchrow_arrayref) {
for (my $i = 0; $i < $numFields; $i++) {
printf("%s %s", $$ref[$i], $i ? "," : "");
}
print "\n";
}
$sth->finish;
|
|
|
