Changes between Version 1 and Version 2 of jazz/10-05-11

Timestamp:

May 11, 2010, 1:57:00 AM (14 years ago)

Author:

jazz

Comment:

--

jazz/10-05-11

@@ -4 +4 @@
 
  * [專案] 實作 Perl + SQLite
-   * 環境: Debian 5.0.4 , 
+   * [參考] [http://mailliststock.wordpress.com/2007/03/01/sqlite-examples-with-bash-perl-and-python/ SQLite examples with Bash, Perl and Python] (2007-03-01)
+   * 環境: Debian 5.0.4 , amd64 核心
 {{{
 jazz@drbl:~$ lsb_release -a
@@ -23 +24 @@
 ii  sqlite3                          3.5.9-6                        A command line interface for SQLite 3
 }}}
+    * 使用範例程式建立 test.db
+{{{
+jazz@drbl:~$ vi perlsqlite3.pl
+jazz@drbl:~$ chmod a+x perlsqlite3.pl
+jazz@drbl:~$ ./perlsqlite3.pl
+jazz@drbl:~$ file test.db
+test.db: SQLite 3.x database
+jazz@drbl:~$ sqlite3 test.db "select * from n"
+1|john|smith
+}}}
+{{{
+#!perl
+#!/usr/bin/perl -w
+use DBI;
+use strict;
+my $db = DBI->connect("dbi:SQLite:test.db", "", "",
+{RaiseError => 1, AutoCommit => 1});
+
+$db->do("CREATE TABLE n (id INTEGER PRIMARY KEY, f TEXT, l TEXT)");
+$db->do("INSERT INTO n VALUES (NULL, 'john', 'smith')");
+my $all = $db->selectall_arrayref("SELECT * FROM n");
+
+foreach my $row (@$all) {
+my ($id, $first, $last) = @$row;
+print "$id|$first|$last";
+}
+}}}