?? sqlite.pl
字號:
#!/opt/lampp/bin/perluse 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>";?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -