网络数据库教程

keaide · 发表于 2006-5-28 20:30

各列可以使用的数据类型可以在MySQL文献中找到。在本例中我使用了"date"数据类型以及变量长度字符串。"varchar" 字符串的长度由预设的长度限制，在变量中，是100。

要结束mysql中的一个声明，你需要键入一个分号，然后回车。mysql将告诉你的“query（SQL中任何指令的术语）”状态，以及处理所用时间。

insert（插入）的语言更简单：

   insert into 表格(列1,列2,...,列_x)

   values(value1,value2,...,value_x)
字符串必须用引号圈起来。

select（选择）是SQL非常有用的声明，必要的时候，它的用法可能会非常复杂。

如果在该数据库中我存储了几百个音乐文件，而且我只想看一下有Genesis创作的作品，我就可以用select发出一个声明查询我所需要的内容：

   select title, released

   from  albums

   where artist = 'Genesis'

   order by released
这次我按名称圈定了我所感兴趣的列，而不是用* 通配符。命令行where artist = 'Genesis'限制必须查询MySQL记录中由Genesis创作的作品，我还命令MySQL将该作曲家的唱片按照发行日期排序。

除了insert和select指令，还有两种基本的DML指令：update（更新）和delete（删除）。 update使你能够改变在表格行中存储的数据；delete使你能删除表格中的一行。

这些指令的使用范例：

keaide · 发表于 2006-5-28 20:30

我发现Selling England 的发行日期是2月1日而不是1月1日。所以我更新
我的记录：

   mysql> update albums

      -> set released = '1973-02-01'

      -> where  title = 'Selling England by the Pound'

      ->       and artist = 'Genesis';

   Query OK, 1 row affected (0.03 sec)



   mysql> select * from albums;

   +------------------------------+---------+------------+

   | title                      | artist  | released |

   +------------------------------+---------+------------+

   | Selling England by the Pound | Genesis | 1973-02-01 |

   | Wind & Wuthering          | Genesis | 1976-01-01 |

   | We Can't Dance             | Genesis | 1991-01-01 |

   +------------------------------+---------+------------+

   3 rows in set (0.00 sec)

   如果我认为我不喜欢Genesis ...

   mysql> delete from albums where artist = 'Genesis';

   Query OK, 3 rows affected (0.00 sec)



   mysql> select * from albums;

   Empty set (0.00 sec)
使用"update" 和"delete" 指令时，你需要用where指明查询条件（否则你的表格中的每一行都会被修改或删除，你必须小心)

互联网中有一个很好的SQL教程，我建议仔细阅读该教程。它并不完全适用于MySQL，这是因为SQL也有不同的“方言”。该教程所讲的内容基本适用于MySQL，但有一些细微的区别，在MySQL的SQL文献中有具体说明。

今天的课程的最后，我们将再次研究一下mysqlshow:

   rdice:# mysqlshow test

   Database: test

   +--------+

   | Tables |

   +--------+

   | albums |

   +--------+

   rdice:# mysqlshow test albums

   Database: test  Table: albums  Rows: 0

   +----------+--------------+------+-----+---------+-------+

   | Field | Type       | Null | Key | Default | Extra |

   +----------+--------------+------+-----+---------+-------+

   | title | varchar(100) | YES  |    |       |    |

   | artist | varchar(100) | YES  |    |       |    |

   | released | date       | YES  |    |       |    |

   +----------+--------------+------+-----+---------+-------+
mysqlshow记录了我们在mysql中所作的一切工作。当你要求mysqlshow显示表格信息时，它并不告诉你在表格中具体有什么信息，它只是告诉你表格中目前有多少行，它告诉你的是表格的结构。我们已经了解了"Field"和"Type" ，其他的表格资料年可以从MySQL的文献中找到详细内容)。

keaide · 发表于 2006-5-28 20:31

五、我们不是在建立互联网站点吗，我是不是漏了什么东西？

我们现在已经了解了数据库的基本知识。下面我们的任务是将这些SQL技术应用到互联网中。我们将用DBI（Perl的数据库界面）实现这一目的。我将SQL语言直接写入ePerl程序中，并用Perl的DBI模块支持其运行。

不要着急。我们已经建立了系统，剩下的只是编码。

keaide · 发表于 2006-5-28 20:32

一、必不可少的CGI.pm

在过去的几天里我们已经谈了许多重要的事项。当然谈得都不是太深入。今天我将用一个实例比较细致地阐述一下过去几天所学的概念。而且几天还会涉及一些新的问题。

在各种有关Perl CGI编程的讨论中常常会提到Lincoln Stein的CGI.pm 。总体来说，CGI.pm 所用的编程理念和我在本教程中所倡导的完全相反。

从一开始，我就在试图帮助你们建立互动、动态生成的网页。这也是嵌入式HTML编程的初衷，而且它也能使网站的编码和组织更简便快捷。

而CGI.pm的观点是将网络编程分离出来，它给你一种感觉仿佛你是在用CGI.pm搭建一个网页，例：

#!/usr/bin/perl

   use CGI;

   $query = new CGI;



   print $query->header(),

         $query->start_html(-title=>'Made with CGI.pm'),

         'This is what I mean by ',

         $query->b('abstracted'),

         '.',

         $query->end_html();

   exit 0;
该程序的执行结果是一个简单的HTTP头，一个起始HTML块（包括一个<TITLE>

，几行文字，以及标准的HTML结束块。注意所有这些都是用CGI的$query 对象以及与其相关的方法编制的：

Content-type: text/html <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"> <HTML><HEAD><TITLE>Made with CGI.pm</TITLE> </HEAD><BODY>This is what I mean by <B>abstracted</B>.</BODY></HTML>

我总是尽量避免使用这种编程方法，但是我也不得不承认这种方法有时候
用起来很顺手。

CGI.pm的优点不在于它的抽象性，而在于它所提供的工具。CGI.pm有一个非常强大的cookie处理器以及表单参数解码方法。

我们都了解表单，它是HTML，而且它具有很多用途。

keaide · 发表于 2006-5-28 20:33

作为一个网络程序员，表单是从用户处收集的只要方法。当一个用户点击递交（Submit）按钮时，浏览器将用户输入的信息打包编码然后发送给你的CGI程序进行处理。而CGI程序的职责就是要解包，解码和使用表单中的内容。

这个过程很烦琐，为什么不让CGI.pm帮你处理这些事情呢？表单参数可以用param方法提取：

　

#!/usr/bin/perl

   #

   # BAR.cgi is a simple Perl CGI program using CGI.pm.

   #

   # A Web page with a form containing the FOO textarea

   # is meant to submit to BAR.cgi (pay attention to

   # the "param" method).

   #

   use CGI;

   $query = new CGI;



   print $query->header(),

         $query->start_html(-title=>'Test of the param method'),

         'The value of the FOO parameter is: ',

         $query->param('FOO'),

         $query->end_html();

   exit 0;
这就是用CGI.pm解决这个问题的方法。在以后的某些ePerl代码中我还将用到CGI.pm，但只是为了利用其param方法的优势。

keaide · 发表于 2006-5-28 20:33

二、数据库转义序列

在第3天的教程中我用做了一个唱片数据库，其中有一张唱片叫做"We Can't Dance"，这一项不能作为字符串利用mysql程序插入到数据库中－因为MySQL将符号'作为字符串的限位符。

变通方法是通过加入反斜杠将该限位符“转义”：

   mysql> insert into albums(title,artist,released)

            -> values('We Can\'t Dance','Genesis','1991-01-01');
当然在为了数据库上下文中处理这些细节比较令人头疼。

当你想在数据库中插入项目时，通常会直接使用表单参数。你的ePerl代码可能如下：

   $foo = $query->param('foo');

   $foo =~ s/'/\\'/g; # this Perl command will substitute ' with \'



   $SQL = <<"EOT";

   insert into my_table(my_column)

   values ('$foo')

   EOT
这种设置方法不好，因为：

MySQL用反斜杠"转义"字符，但其他的某些数据库程序则可能使用不同的转义序列，所以用反斜杠硬性“转义”会影响程序的可移植性另外，该转义符在此处只转义了单引号 ' -还有其他的字符也需要转义。

需要转义的其他字符在不同的数据库中会有所区别。

你不需要记忆文献中所述的细节。用$dbh->quote记忆可以帮你实现上述目的。

   $foo = $dbh->quote($query->param('foo'));
$query->param('foo')将返回表单文字区输入的foo的值，并且$dbh->quote将根据和你的数据库相应的DBD转义必要的字符。

$dbh->quote还在这个字符串外添加引号，这样就省得你在键盘输入引号了。

keaide · 发表于 2006-5-28 20:33

三、在Here-Document字符串内嵌入引用表达式

here-document字符串的语法如下：

   $string = <<"HERE_DOCUMENT";

   You can type all sorts of stuff in here....

   You can also $interpolate variables right into your h-d string.

   The here-document string will quit when it runs into the label

   given at its outset.

   HERE_DOCUMENT
here_document非常方便，特别是在编制传递给$dbh以生成客户端$cursor光标查询的 $SQL字符串时。

看一下我们如何在上面的$dbh->quote例子生成$SQL。我必须生成一个中介变量$foo插入实际生成$SQL的here-document字符串。但这样也不是很理想。我们可以做得更好。

问题是，当$dbh->quote返回一个字符串标量值时，它不是字符串标量值，它是一个函数（实际上是一个方法），这个问题可以在here-documents中变通解决。例如，下面的代码就不能执行：

   $SQL = <<"EOT";

   insert into my_table(my_column)

   values ($dbh->quote($query->param('foo')))

   EOT
我在here-document做一些变通 (变通方法用加重体字显示)

   $SQL = <<"EOT";

   insert into my_table(my_column)

   values (${ \($dbh->quote($query->param('foo'))) })

   EOT
\ 对$dbh->quote所提供的值作了一个引用。${ ... }取消该引用。语法看起来不好看，但是，据我所知，从来也没有人认为Perl 是一种漂亮的语言。

keaide · 发表于 2006-5-28 20:34

四、嵌入子程序

尽管ePerl可以让你在HTML中任意嵌入Perl，但有时候在你的.iphtml文件中
使用子程序能使你的程序显得简洁明了。

例：

   <HTML>
   <HEAD><TITLE>Embedding a Subroutine</TITLE></HEAD>
   <BODY>

   <P>
   Here's an HTML calendar for the current month:
   <B><?=${ \(`cal| head -1`) }!></B>

   <P>
   <?=${ \( calendar_table() ) }!>//

   </BODY>
   </HTML>
   <?

   sub calendar_table {

   #
   # I make copious use of the Unix "cal" command here.
   # This won't work on DOS-derivative machines.
   #

      my @cal = `cal`; # fill the cal array with the
               output of a shelled cal command
      my $return = '';

      shift @cal; # junk the first line... it's not needed

      $return .= "<TABLE BORDER>\n";
      $return .= "<TR>";
   # I dedicate the following line to my fellow Perl junkies
everywhere
      $return .= join('', map { s/\W//g; "<TH>$_</TH>" }
                  unpack("A2A3A3A3A3A3A3", shift @cal));
      $return .=  "</TR>\n";

      foreach ( @cal ) {
         $return .= "<TR>\n";
         $return .= join('', map { s/\W//g; "<TD>$_</TD>" }
                     unpack("A2A3A3A3A3A3A3",$_));
         $return .= "</TR>\n";
      }

      $return .= "</TABLE>\n"; # the value of this line is
returned

   }

   !>//
这里是该程序执行的结果（如下)。注意如果子程序非常大的话可能会给内存造成麻烦（因为$return的体积会很大)，但是当我们遇到这个问题时我们会用相应的办法解决。

Su Mo Tu We Th Fr Sa
　 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 　　　　
　　　　　　　

　

keaide · 发表于 2006-5-28 20:34

五、用SQL设置表单 - selection.iphtml

这里是我所用到的例子，它包括两个程序selection.iphtml和receive.iphtml。

首先调用selection.iphtml - 它将提供一个表单。用户填完表单后，表单将被
递交给receive.iphtml。当它列表显示结果后，你将回到selection中。

但是我不能在这里演示插入、更新或删除SQL语句，因为我不能公开该数据库的
内容。

   <?

      my $dbh = DBI->connect('DBI:mysql:test:localhost', '','',

                              { PrintError => 0}) || die $DBI::
errstr;

   !>//

   <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">



   <HTML>

   <HEAD>

      <TITLE>An ePerl Database Example: Fiddling with
Albums</TITLE>

   </HEAD>

   <BODY>



   <P>

   Use the following form to query the contents of an
(admittedly limited)

   database of CD albums of mine.



   <TABLE>

   <TR>

   <TD><?=${ \( search_by_band ( \$dbh ) ) }!></TD>

   <TD><?=${ \( search_by_year ( \$dbh ) ) }!></TD>

   </TR>

   </TABLE>



   <FORM ACTION=receive.iphtml METHOD=POST>

   <B>Or, type in a title:</B> <INPUT NAME=title SIZE=20>

   (for all titles, just put the cursor in this field
and hit ENTER)

   </FORM>



   </BODY>

   </HTML>

   <?



   $dbh->disconnect;



   !>//

   <?



   sub search_by_band {



   #

   # Note that I passed a reference to the database handle dbh.

   # This means that, in order to reference it within this

   # subroutine, I'll have to refer to it as $$dbh.

   #

      my $dbh = shift;

      my $return = '';



   #

   # The "distinct" keyword in SQL will only return one row for
a set of

   # identical matches.  "Order by" will sort the
   # returned set alphabetically.

   #



      my $SQL = <<"EOT";

   select distinct artist

   from albums

   order by artist

   EOT



      my $cursor = $$dbh->prepare($SQL);

      $cursor->execute;



      $return .= "<FORM ACTION=receive.iphtml METHOD=POST>\n";

      $return .= "<B>Pick an artist:</B><BR>\n";

      $return .= "<SELECT NAME=artist>\n";



      my @fields;

      while ( @fields = $cursor->fetchrow ) {

         $return .= "<OPTION>$fields[0]\n";

      }

      $return .= "</SELECT><BR>\n";

      $return .= "<INPUT TYPE=SUBMIT NAME=artist_submit
                  VALUE=\"Go Search on This Artist!\">\n";

      $return .= "</FORM>\n";

   }



   sub search_by_year {



      my $dbh = shift;

      my $return = '';



   #

   # If COLUMN is defined as a date datum, then year(COLUMN)
will return only

   # the year portion of the data in the column. "Order by
COLUMN desc"

   # will reverse the usual sort order.

   #



      my $SQL = <<"EOT";

   select distinct year(released)

   from albums

   order by released desc

   EOT



      my $cursor = $$dbh->prepare($SQL);

      $cursor->execute;



      $return .= "<FORM ACTION=receive.iphtml METHOD=POST>\n";

      $return .= "<B>Or, pick a year:</B><BR>\n";

      $return .= "<SELECT NAME=year>\n";



      my @fields;

      while ( @fields = $cursor->fetchrow ) {

         $return .= "<OPTION>$fields[0]\n";

      }

      $cursor->finish;



      $return .= "</SELECT><BR>\n";

      $return .= "<INPUT TYPE=SUBMIT NAME=year_submit
                  VALUE=\"Go Search on This Year!\">\n";

      $return .= "</FORM>\n";

   }



   !>//
　

keaide · 发表于 2006-5-28 20:34

六、用CGI.pm - receive.iphtml处理表单结果

   <?

      my $cgi = new CGI; # 利用 "param" 解码方法的优势



      my $dbh = DBI->connect('DBI:mysql:test:localhost', '','',

                              { PrintError => 0}) || die $DBI::errstr;

   !>//

   <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">



   <HTML>

   <HEAD>

      <TITLE>Results from the Database Search</TITLE>

   </HEAD>

   <BODY>



   <P>

   <?=${\( display_query_results(\$dbh, \$cgi) )}!>//



   <P>

   <A HREF=selection.iphtml>Return to the query page</A>



   </BODY>

   </HTML>

   <?



   $dbh->disconnect;



   !>//

   <?



   sub display_query_results {



   #

   # 注意我将引用传递给数据库处理器dbh和
   # cgi对象 - 这意味着要想在子程序中引用他们

   # 我必须使用$$dbh和$$cgi.

   #

      my $dbh = shift;

      my $cgi = shift;



      my $return = '';

      my $SQL;



      if ( defined($$cgi->param('title')) ) {



         my $SQL = <<"EOT";

   select title, artist, year(released)

   from albums

   where  ucase(title) like ${ \($$dbh->quote(uc($$cgi->
         param('title')) . '%') ) }

   order by title, artist

   EOT



   #

   # 在上述语句中我使用了更复杂的SQL。SQL不会
   # 自动将返回的结果排序，但是利用

   # "order by" 语句可以很容易地实现排序 - 只需设定你希望显示的列数

   # 以及它们，的顺序优先级，"Like"可以匹配子程序 -

   # 如果你提供了标题 "abc," 则所有标题以"abc"开头的唱片

   # 都会被返回。为了消除这种现象，我
   # 在SQL中使用ucase(title)，以及uc($$cgi->param('title'),
      将两个字符串都大写显示。

   # %字符是一个通配符，很象UNIX中的*

   # 文件名globbing.

   #

         my $cursor = $$dbh->prepare($SQL);

         $cursor->execute;



         $return .= "<TABLE BORDER>\n<TR><TH COLSPAN=3>";

         $return .= "<B>Matches on the title search for:
            <TT><I>${ \($$cgi->param('title') )}</I></TT></B></TH></TR>";



         $return .= "<TR><TH>Title</TH><TH>Artist</TH><TH>
                     Year of Release</TH></TR>\n";



         my @fields;

         while ( @fields = $cursor->fetchrow ) {

               $return .= "<TR><TD>$fields[0]</TD><TD>$fields[1]
                        </TD><TD>$fields[2]</TD></TR>\n";

         }

         $cursor->finish;



         $return .= "</TABLE>\n";



      } else {



         if ( defined($$cgi->param('artist_submit')) ) {



               $SQL = <<"EOT";

   select title, year(released)

   from albums

   where  artist = ${ \($$dbh->quote($$cgi->param('artist'))) }

   order by released desc, title

   EOT



         } elsif ( defined($$cgi->param('year_submit')) ) {



               $SQL = <<"EOT";

   select artist, title

   from albums

   where  year(released) = ${ \($$dbh->quote($$cgi->param('year'))) }

   order by artist, title

   EOT



         }



      my $cursor = $$dbh->prepare($SQL);
      $cursor->execute;

      $return .= "<TABLE BORDER>\n<TR><TH COLSPAN=2>";
      $return .= (defined($$cgi->param('artist_submit'))?
                  ("<B>Artist: <TT><I>".
                  "${ \($$cgi->param('artist')) }</I>".
                  "</TT></B></TH></TR>\n<TR>".
                  "<TH>Album Title</TH>".
                  "<TH>Year of Release</TH></TR>\n"

:
                  ("<B>Year of Release: <TT><I>".
                  "${ \($$cgi->param('year')) }</I>".
                  "</TT></B></TH></TR>\n<TR>".
                  "<TH>Artist</TH><TH>Album Title</TH>".
                  "</TR>\n"

);

      my @fields;
      while ( @fields = $cursor->fetchrow ) {
         $return .= "<TR><TD>$fields[0]</TD>";
         $return .= "<TD>$fields[1]</TD></TR>\n";
      }
      $cursor->finish;
      $return .= "</TABLE>\n";
}

$return;
}

!>//

本教程到此就结束了，但是它只是为了数据库编程的入门，而不是结束。我希望该教程能对你有所帮助。

[笔记] 网络数据库教程

浏览过的版块