11、数据库内容与 XML 转换及 SOAP/XML - RPC 在 Perl 中的应用

数据库内容与 XML 转换及 SOAP/XML - RPC 在 Perl 中的应用

1. 数据库内容转换为 XML

1.1 转换前的决策

在将数据库信息转储为 XML 时，需要考虑以下几个关键问题：
- 提取内容 ：是提取给定表的全部内容，还是从多个表中提取单个行的“记录”信息。
- 信息布局 ：如果有现有的 XML DTD，可按其标准操作；若为自用，需考虑转储后如何使用这些数据。
- 直接使用 XML ：若要直接使用 XML，可考虑使用 DTD 和 XML 特定功能（如 ID 属性）来标识不同记录。
- 信息表示方式 ：使用属性存储字段数据，还是使用 XML 标签对存储所有信息。

1.2 传统转储方法

若要将信息从一个系统传输到另一个系统，可使用脚本将信息以 SQL 语句的形式写入文件，之后在任何系统上导入时，只需读取文件中的每一行并执行该语句。以下是一个简单的数据库内容转储脚本：

#!/usr/local/bin/perl -w
use strict;
use DBI;
my $dbname = shift;
my $dbh = DBI->connect("DBI:mysql:$dbname");
my @tables = ();
my ($sth) = $dbh->prepare("show tables");
$sth->execute();
while (my