KevinSchoenmayer/GseTDDUebungKCLR
2
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Commit

Browse Source
This commit is contained in:
Riley Schneider
2025-12-03 16:38:10 +01:00
parent c5e26bf594
commit b732d8d4b5
17680 changed files with 5977495 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
database/contrib/sqlite.pl Normal file
View File

@@ -0,0 +1,42 @@
#!/opt/lampp/bin/perl
use DBI;
print "Content-Type: text/html\n\n";
my $dsn="dbi:SQLite2:dbname=../sqlite/cdcol";
my $dbh=DBI->connect("$dsn","","") or
die "Kann Datenbank nicht erreichen!";
print "<html>";
print "<head>";
print "<title>Perl und PostgreSQL</title>";
print "</head>";
print "<body>";
print "<h1>Perl und PostgreSQL</h1>";
print "<table border=\"1\">";
print "<tr>";
print "<th>Interpret</th>";
print "<th>Titel</th>";
print "<th>Jahr</th>";
print "</tr>";
my $query="SELECT * FROM cds";
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[2]."</td>";
print "<td>".$row[1]."</td>";
print "<td>".$row[3]."</td>";
print "</tr>";
}
$prep_sql->finish();
$dbh->disconnect();
print "</table>";
print "</body>";
print "</html>";