Ausführliche Erläuterung von XML und Beispielcode für moderne CGI-Anwendungen

Einführung

Die Popularität von Perl steht in direktem Zusammenhang mit der boomenden Entwicklung des Internets. Aufgrund seiner leistungsstarken Funktionen und einfachen Erweiterbarkeit ist Perl die naheliegendste Wahl für die Entwicklung von CGI-Anwendungen und hat sich schnell zur bevorzugten Sprache für CGI-Skripte entwickelt. CGI selbst ist nicht perfekt. Dank der Beliebtheit vieler Entwickler ist CGI jedoch auch heute noch weit verbreitet und es gibt keine Anzeichen dafür, dass es in naher Zukunft in den Ruhestand gehen wird.

Ein typisches CGI::XMLApplication-Skript besteht aus drei Teilen: einem kleinen ausführbaren Skript, das Zugriffsunterstützung für die Anwendung bereitstellt, einem Logikmodul, das verschiedene Manager-Methoden implementiert, und einem Logikmodul, das verschiedene Manager-Methoden basierend darauf implementiert Der StatusEs kann ein oder mehrere XSLT-Stylesheets geben, die die vom Modul zurückgegebenen Ergebnisse in ein Format konvertieren können, das der Browser dem Benutzer anzeigen kann.

Im Folgenden stellen wir die Anwendung von CGI::XMLApplication anhand von Beispielen kurz vor.

Beispiel 1: CGI XSLT Gateway

CGI::XMLApplication geht davon aus, dass die an einem Projekt beteiligten Designer und Entwickler die Logik und Darstellung der Anwendung mithilfe von XSLT-Stylesheets trennen, um diese Trennung sehr direkt sichtbar zu machen und wird keinen Einfluss auf das Projekt haben. Entwickler müssen lediglich in der Lage sein, dass setStylesheet den Speicherort des XSLT-Stylesheets zurückgibt, das dem aktuellen Anwendungsstatus entspricht. Die Konvertierung des von der Anwendung erstellten DOM-Baums, die Übertragung von XSLT-Parametern an die Konvertierungs-Engine und die Übertragung konvertierter Inhalte an den Browser sind für Benutzer transparent.

Um diese Trennung hervorzuheben, ist unser erstes Beispiel keine Webanwendung im herkömmlichen Sinne, sondern ein generisches XSLT-Gateway, das zum CGI-Bin des Servers hinzugefügt werden kann, um den gesamten XML-Inhalt zu konvertieren. Der Verzeichnisbaum wird konvertiert in ein Format, das dem anfordernden Browser entspricht, und das alles ist für Benutzer, Stylesheets und Dokumentautoren transparent.

Der erste Schritt besteht darin, ein CGI-Skript zu erstellen, das die Anfrage des Kunden mit der Anwendung verbindet. Wir möchten, dass XML-Dokumente einfach über URLs durchsucht werden können und dass das Erstellen von Hyperlinks zwischen diesen Dokumenten intuitiv ist. Daher erstellen wir ein CGI-Skript ohne die Erweiterung, sodass als Knoten im URL-Pfad alles rechts vom Knoten in einer virtuellen Dokumentumgebung mit XML-Inhalten interpretiert wird. In diesem Fall nennen wir CGI einen Stylesheet-Selektor.

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';

Nachdem wir die entsprechenden Module geladen und einige Variablen festgelegt haben, die im gesamten Skript gültig sind, beginnen wir mit dem Hinzufügen zum %context, der an die Klasse übergeben wird, die die Anwendungslogik verarbeitet Domänen. In dieser Anwendung übergeben wir nur die angeforderte URL (REQUEST-Eintrag) rechts vom Pfad zur Skriptdatei und den STYLE-Schlüssel, der die im Abfrage-Parameterstil gespeicherten Daten enthält.

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

Schließlich erstellen wir eine Instanz der XSLGateway-Logikklasse und verarbeiten die Anfrage, indem wir ihre Ausführungsmethode aufrufen und %context als einzigen Parameter übergeben.

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

Das CGI-Skript ist fertig. Nachfolgend erstellen wir das XSLGateway-Modul, das die meiste Arbeit erledigt:

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

Wie ich in der Einleitung erwähnt habe, funktioniert CGI::XMLApplication über den -Ereignis--Aufruf: in der Anwendungsklasse The Die Ausführung einer bestimmten Methode hängt von der Eingabe eines angegebenen Felds ab (normalerweise der Name der -Schaltfläche , die zum Absenden des -Formulars verwendet wird). Außerdem müssen zwei aufrufende Methoden ausgeführt werden: selectStylesheet und requestDOM-Methode.

selectStylesheet gibt den vollständigen Dateisystem--Pfad zum relevanten XSLT-Stylesheet zurück. Der Einfachheit halber gehen wir davon aus, dass das Stylesheet in einem einzigen Verzeichnis gespeichert wird. Über das Feld $context-> können wir weitere Stylesheets bereitstellen, um die Flexibilität des Systems zu erhöhen.

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';
}

Als nächstes müssen wir die requestDOM-Methode erstellen, die den XML::LibXML DOMAusdruck des übertragenen XML-Dokuments zurückgibt. Da unser Gateway nur mit statischen-Dateien funktioniert, müssen wir XML::LibXML verwenden, um das Dokument zu analysieren und den Ergebnisbaum zurückzugeben.

sub requestDOM {
my $self = shift;
my $context = shift;
my $xml_file = $context->{REQUEST} || 'index.xml';
my $doc_path = '/opt/www/htdocs/xmldocs/';
my $requested_doc = $doc_path . $xml_file;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($requested_doc);
return $doc;
}

Zu diesem Zeitpunkt kann unser CGI-Skript sicher im cgi-bin-Verzeichnis des Servers ausgeführt werden und lädt einige XML-Dokumente und einen oder zwei XSLT-Stile in einige geeignete Verzeichnisse hoch. Jetzt können wir beginnen, die Ergebnisse unserer Arbeit zu testen. Eine Anfrage an localhost/cgi-bin/stylechooser/mydocs/somefile.xml führt dazu, dass der Internetserver die Datei mydocs/somefile.xml aus dem Verzeichnis /opt/www/htdocs/xmldocs/ mithilfe von /opt/www/htdocs auswählt /stylesheets Das Stylesheet default.xsl in /konvertiert die Datei und übermittelt sie an den Client.

如果需要，我们可以扩充这一基本的框架，例如，可以 在样式表选择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. Detaillierte Erläuterung des CGI-Schreibens von Daten in Text oder Datenbank

2.Teilen eines Beispiel-Tutorials zum Ausführen von Python-Skripten mit CGI auf IIS

3. Verwenden Sie das CGI-Modul, um ein einfaches Webseiten-Tutorial zu erstellen

4 Teilen Sie ein Beispiel-Tutorial zur Python-CGI-Programmierung

5 . Was ist CGI? Detaillierte Einführung in die Python-CGI-Programmierung

6. FastCGI-Prozess wurde unerwartet beendet und verursachte einen 500-Fehler

Das obige ist der detaillierte Inhalt vonAusführliche Erläuterung von XML und Beispielcode für moderne CGI-Anwendungen. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!