📄 postgresql.pl
字号:
#!/opt/lampp/bin/perluse DBI;print "Content-Type: text/html\n\n";my $dsn="dbi:PgPP:dbname=cdcol;host=localhost;port=5432";my $dbh=DBI->connect("$dsn","oswald","geheim") 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>";⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -