最新の CGI アプリケーション用の XML とサンプル コードの詳細な説明

はじめに

Perlその人気はインターネットの急成長に直接関係しています。 Perl の強力な機能と容易な拡張性により、Perl は CGI アプリケーションの開発に最も自然な選択肢となっており、すぐに CGI スクリプトに好まれる言語になりました。 CGI自体は完璧ではありません。しかし、多くの開発者の好意のおかげで、CGI は現在でも広く使用されており、近い将来に「廃止」される兆候は見られません。

典型的な CGI::XMLApplication スクリプトは、アプリケーションへのアクセス サポートを提供する小さな実行可能スクリプト、さまざまなマネージャー メソッドを実装するロジック モジュール、およびアプリケーションに応じて 1 つ以上の 3 つの部分で構成されます。シートでは、XSLT スタイル シートを使用して、モジュールから返された結果をブラウザーがユーザーに表示できる形式に変換できます。 CGI::XMLApplication のアプリケーションを例を通して簡単に紹介しましょう。 例 1: CGI XSLT ゲートウェイ

CGI::XMLApplication は、プロジェクトに関与するデザイナーと開発者が影響を使用することを前提としています。開発者は、setStylesheet が現在のアプリケーションの状態に一致する XSLT スタイル シートの場所を返せるようにすることのみが必要です。アプリケーションによって作成された DOM ツリーの変換、変換エンジンへの XSLT パラメータの送信、およびブラウザへの変換されたコンテンツの送信はすべてユーザーに対して透過的です。この分離を強調するために、最初の例は従来の意味での Web アプリケーションではなく、XML コンテンツのディレクトリ ツリー全体を形式に準拠させるためにサーバーの CGI ビンに追加できる一般的な XSLT ゲートウェイです。要求元のブラウザーでは、これはすべてユーザー、スタイルシート、ドキュメント作成者に対して透過的です。

最初のステップは、クライアントのリクエストとアプリケーションを接続する CGI スクリプトを確立することです。 XML ドキュメントを URL 経由で簡単に参照できるようにし、これらのドキュメント間のハイパーリンクを直感的に作成できるようにしたいと考えています。したがって、拡張子なしで CGI スクリプトを作成し、URL パス内のノードとして、ノードの右側にあるすべてのものが XML コンテンツを含む仮想ドキュメント環境内で解釈されるようにします。この場合、CGI をスタイル シート セレクターと呼びます。

use strict;
use lib '/path/to/secure/webapp/libs';
use XSLGateway;
use CGI qw(:standard);my $q = CGI->new();
my %context = ();
my $gateway_name = 'stylechooser';

適切なモジュールをロードし、スクリプト全体で有効ないくつかの

変数

を設定した後、アプリケーション ロジックを処理するクラスに渡される %context へのいくつかのフィールドの追加を開始します。このアプリケーションでは、リクエストされた URL (REQUEST エントリ) をスクリプト ファイルへのパスの右側に渡し、

query

パラメーター スタイルに保存されたデータを含む STYLE キーのみを渡します。

$context{REQUEST} = $q->url(-path => 1);
$context{REQUEST} =~ s/^$gateway_name/?//;
$context{REQUEST} ||= 'index.xml';
$context{STYLE} = $q->param ('style') if $q->param('style');

最後に、XSLGateway ロジック クラスのインスタンスを作成し、その run メソッドを呼び出してリクエストを処理し、%context を唯一のパラメーターとして渡します。 rreee CGI スクリプトが完成しました。以下では、ほとんどの作業を行う XSLGateway モジュールを作成します。

my $app = XSLGateway->new();
$app->run(%context);

冒頭で述べたように、CGI::XMLApplication は

event

呼び出しを介して動作します。アプリケーション クラス内の特定のメソッドの実行は、フィールド (通常は

フォーム

の送信に使用される

ボタン

の名前) を入力するには、selectStylesheet メソッドと requestDOM メソッドという 2 つの呼び出しメソッドを実行する必要があります。 selectStylesheet は、関連する XSLT スタイルシートへの完全な ファイル システム パスを返します。簡単にするために、スタイルシートが 1 つのディレクトリに保存されると想定します。システムの柔軟性を高めるために、$context-> {STYLE} フィールドを通じて他のスタイル シートを提供できます。

package XSLGateway;
use strict;
use vars qw(@ISA);
use CGI::XMLApplication;
use XML::LibXML;
@ISA = qw(CGI::XMLApplication);

次に、転送された XML ドキュメントの XML::LibXML DOM

expression

を返す requestDOM メソッドを作成する必要があります。私たちのゲートウェイは static ファイルでのみ動作するため、XML::LibXML を使用してドキュメントを解析し、結果ツリーを返す必要があります。

sub selectStylesheet {
my $self = shift;
my $context = shift;
my $style = $context->{STYLE} || 'default';
my $style_path = '/opt/www/htdocs/stylesheets/';
return $style_path . $style . '.xsl';
}

この時点で、CGI スクリプトはサーバーの cgi-bin ディレクトリで安全に実行でき、いくつかの XML ドキュメントと 1 つまたは 2 つの XSLT スタイルシートを適切なディレクトリにアップロードします。これで、作業結果のテストを開始できます。 localhost/cgi-bin/stylechooser/mydocs/somefile.xml へのリクエストにより、インターネット サーバーは /opt/www/htdocs を使用して、/opt/www/htdocs/xmldocs/ ディレクトリから mydocs/somefile.xml ファイルを選択します。 /stylesheets /convert 内のスタイルシート default.xsl は、ファイルを変換してクライアントに送信します。

如果需要，我们可以扩充这一基本的框架，例如，可以 在样式表选择CGI脚本程序添加一些查找组件，选择合适的样式表，可以设置或读 取HTTP cookies，对网站进行修饰。

例2：一个简单的购物系统

在 该例子中，我们将使用CGI::XMLApplication创建一个简化的Web应用程序，购物 系统。

与上个例子相同，这个应用程序中与CGI-BIN有关的部分仍然非常 地少。我们所需要作的只不过是初始化CustomerOrder应用类并调用它的run()方 法。这次，我们将CGI.pm中Vars作为%context的PARAMS域：

use strict;
use CGI qw(:standard);
use lib '/path/to/secure/webapp/libs';
use CustomerOrder;
my $q = CGI->new();
my %context = ();
$context{PARAMS} = $q- >Vars;
my $app = CustomerOrder->new();
$app->run(% context);

在这个例子中，我们假定该应用中的产品信息存储在关 系数据库中，产品清单不是太长，使我们在应用中不会出现多屏才能显示相关信 息的麻烦：用户输入订购的产品数量的主要数据输入屏，显示订购单内容和所选 物品总价格的确认屏，显示订单已经处理的提示。为了简单起见，我们在这里没 有涉及送货和财务数据的输入等问题。

package CustomerOrder;
use strict;
use vars qw(@ISA);
use CGI::XMLApplication;
use XML::LibXML::SAX::Builder;
use XML::Generator::DBI;
use DBI;
@ISA = qw (CGI::XMLApplication);

在加载必要的模块和定义从 CGI::XMLAplication中继承的类后，我们开始创建应用中与各种状态有关的事件 调用。首先，我们必须通过创建registerEvents()方法注册这些事件。在本例中 ，我们将注册order_confirm 和order_send方法，这二个方法设置%context中的 SCREENSTYLE域。稍后，我们将利用该属性定义在显示客户端的数据时应该使用三 个XSLT样式表中的哪一个。

需要注意的是，这些事件将被映射到实现它们 的实际的子程序中，子程序的命名规则是event_9c4e9320185786b41813709f6882a45d，例如， order_confim事件是由event_order_confim执行的。另外，还需要注意的是，各 种事件的选择是由CGI::XMLApplication根据其查找一个与注册事件同名的表格参 数的能力进行的。例如，要执行order_confirm事件，表格组件中必须包含一个提 交非空值的名字为order_confirm的表格域。

# 事件的注册和事件调用

sub registerEvents {
return qw( order_confirm order_send );
}
sub event_order_confirm {
my ($self, $context) = @_;
$context->{SCREENSTYLE} = 'order_confirm.xsl';
}
sub event_order_send {
my ($self, $context) = @_;
$context->{SCREENSTYLE} = 'order_send.xsl';
}

如果没有请求执行其他的事 件，则缺省地执行event_default。在本例中，我们只使用它将SCREENSTYLE域设 定为一个合适的值。

sub event_default {
my ($self, $context) = @_;
$context->{SCREENSTYLE} = 'order_default.xsl';
}

每次请求都会执行 event_init方法，而且总是在其他方法之前执行它，这使得它非常适合对应用中 被其他事件使用的部分进行初始化。在本例中，我们使用它返回利用 fetch_recordset()方法从数据库中获取的产品信息的、最初的DOM树。

sub event_init {
my ($self, $context) = @_;
$context->{DOMTREE} = $self->fetch_recordset();
}

state-handler方法完成后，我们需要执行必需的 selectStylesheet和requestDOM方法。

与在第一个例子中一样，我们假设 所有的应用的样式表都存储在服务器上相同的目录中。我们所需要作的是返回 $context->{SCREENSTYLE}的值所指定的路线，并添加到末尾。

# app config and helpers
sub selectStylesheet {
my ($self, $context) = @_;
my $style = $context-> {SCREENSTYLE};
my $style_path = '/opt/www/htdocs/stylesheets/cart/';
return $style_path . $style;
}

在研究requestDOM处理程序之前，我们先来详细 地研究fetch_recordset helper方法。

需要记住的是，我们要做的工作是 从一个关系数据库中选择所订购产品的有关信息，但传递给XSLT处理器的数据必 须是DOM树。在本例中，我们不通过编程的方法，而是利用XML::Generator::DBI ，它能够从执行SQL SELECT语句得到的数据中生成SAX数据。创建要求的DOM树就 是建立XML::LibXML::SAX::Builder（它从SAX事件中创建XML::LibXML DOM树）的 实例。

sub fetch_recordset {
my $self = shift;
my $sql = 'select id, name, price from products';
my $dbh = DBI->connect('dbi:Oracle:webclients',
'chico',
'swordfish')
|| die "database connection couldn't
be initialized: $DBI::errstr n";
my $builder = XML::LibXML::SAX::Builder->new();
my $gen = XML::Generator::DBI->new(Handler => $builder,
dbh => $dbh,
RootElement => 'document',
QueryElement => 'productlist',
RowElement => 'product');
my $dom = $gen->execute($sql) || die "Error Building DOM Treen";
return $dom;}

fetch_recordset方法完成了另一项很重要的任务，但它返回的 DOM树只包含我们想向客户发送信息的一部分，我们还必须获取用户输入的产品数 量，另外，还需要提供一个订购产品的总计。

sub requestDOM {
my ($self, $context) = @_;
my $root = $context-> {DOMTREE}->getDocumentElement();
my $grand_total = '0';

为了将当前的订货数量作为更大的文档的一部分， 我们将遍历所有的产品元素，并在每行中添加和子元素。的值可以从$context- >{PARAMS}域获得。

foreach my $row ($root->findnodes ('/document/productlist/product')) {
my $id = $row- >findvalue('id');
my $cost = $row->findvalue ('price');
my $quantity = $context->{PARAMS}->{$id} || '0';
my $item_total = $quantity * $cost;
$grand_total += $item_total;
# add the order quantity and item totals to the tree.
$row->appendTextChild('quantity', $quantity);
$row->appendTextChild('item-total', $item_total);
}

最后，我们将增加一些有关订单的元信息 ，方法是在具有元素的根元素中添加一个元素，该元素中包含有当前所选货物的 总价值。

$grand_total ||= '0.00';
my $info = XML::LibXML::Element->new('instance-info');
$info- >appendTextChild('order-total', $grand_total);
$root- >appendChild($info);
return $context->{DOMTREE};
}

细心的读者可能已经注意到，我们这个非常简单的应用程序在 order_send方法中没有作任何实际的事。决定如何处理这些数据是产品订购应用 程序中与具体的购物网站最有关的部分。

结束语

CGI::XMLApplication在CGI脚本程序的编程中提供了一种清晰的、模块化 的隔离系统的内容和表示的方法，单就这一点，就值得我们对它进行一番研究。 此外，它还可以使我们避免纠缠于一些细节问题，而集中精力解决主要的问题。

【相关推荐】

1. テキストまたはデータベースにデータを書き込む CGI の詳細な説明

2. IIS で CGI を使用して Python スクリプトを実行するサンプル チュートリアルを共有します

3. CGI モジュールを使用して簡単な Web ページを作成するチュートリアル例

4. Python CGI プログラミングのチュートリアルの例を共有します

5. CGI とは何ですか? Python CGI プログラミングの詳細な紹介

6.

FastCGI プロセスが予期せず終了し、500 エラーが発生しました

以上が最新の CGI アプリケーション用の XML とサンプル コードの詳細な説明の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。