Mercurial > hg > extraction-interface

diff _xampp/contrib/mysql.pl @ 0:b12c99b7c3f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit for previous development
author Zoe Hong <zhong@mpiwg-berlin.mpg.de>
date Mon, 19 Jan 2015 17:13:49 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_xampp/contrib/mysql.pl	Mon Jan 19 17:13:49 2015 +0100
@@ -0,0 +1,42 @@
+#!/opt/lampp/bin/perl
+use DBI;
+
+print "Content-Type: text/html\n\n";
+
+my $dsn="dbi:mysql:phonebook:localhost";
+my $dbh=DBI->connect("$dsn","oswald","geheim") or
+        die "Kann Datenbank nicht erreichen!";
+
+print "<html>";
+print "<head>";
+print "<title>Perl und MySQL</title>";
+print "</head>";
+print "<body>";
+print "<h1>Perl und MySQL</h1>";
+print "<table border=\"1\">";
+print "<tr>";
+print "<th>Vorname</th>";
+print "<th>Nachname</th>";
+print "<th>Telefonnummer</th>";
+print "</tr>";
+
+my $query="SELECT * FROM users";
+
+my $prep_sql=$dbh->prepare($query) or  die print "Can't prepare";
+$prep_sql->execute() or die print "Can't  execute";
+
+while (my @row = $prep_sql->fetchrow_array())
+{
+    print "<tr>";
+    print "<td>".$row[1]."</td>";
+    print "<td>".$row[2]."</td>";
+    print "<td>".$row[3]."</td>";
+    print "</tr>";
+}
+
+$prep_sql->finish();
+$dbh->disconnect();
+
+print "</table>";
+print "</body>";
+print "</html>";