interbase.pl
来自「视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.」· PL 代码 · 共 43 行
PL
43 行
#!/opt/lampp/bin/perluse DBI;print "Content-Type: text/html\n\n";my $dsn="DBI:InterBase:db=localhost:/opt/lampp/var/firebird/cdcol.gdb";my $dbh=DBI->connect("$dsn","oswald","geheim") or die "Kann Datenbank nicht erreichen!";print "<html>";print "<head>";print "<title>Perl und InterBase/Firebird</title>";print "</head>";print "<body>";print "<h1>Perl und InterBase/Firebird</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 + =
减小字号Ctrl + -
显示快捷键?