?? create_punjab_db.pl
字號:
#!/usr/bin/perl -wuse strict;use DBI;use DBD::SQLite;my $DATABASE="punjab.db";my $tdir = "../html";my $dbh = DBI->connect("DBI:SQLite:dbname=$DATABASE;","","", { RaiseError => 1, AutoCommit => 0 }) or die $DBI::errstr;my $db_version=0;my $heap;# Check db_version from dbmy $sth = $dbh->prepare("SELECT db_version FROM punjab_db");eval { $sth->execute() };if (!$@) { my @row = $sth->fetchrow_array; $db_version = $row[0]; $sth->finish;}if ($db_version < 1) { $dbh->do("CREATE TABLE punjab_db ( db_version INTEGER NOT NULL)" ); $dbh->do("INSERT INTO punjab_db (db_version) VALUES(1)"); $dbh->do("CREATE TABLE transactions ( id INTEGER PRIMARY KEY NOT NULL, session text, event text, time_stamp timestamp(14)) "); $dbh->commit(); }# dump the database to an sql file$dbh->disconnect;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -