최신 CGI 애플리케이션을 위한 XML 및 샘플 코드에 대한 자세한 설명

소개

Perl의 인기는 인터넷의 급속한 발전과 직접적인 관련이 있습니다. Perl의 강력한 기능과 쉬운 확장성은 Perl을 CGI 응용 프로그램 개발을 위한 가장 자연스러운 선택으로 만들었으며 빠르게 CGI 스크립트에 선호되는 언어가 되었습니다. CGI 자체는 완벽하지 않습니다. 그러나 많은 개발자들의 인기 덕분에 CGI는 오늘날에도 여전히 널리 사용되고 있으며 가까운 미래에 "은퇴"할 조짐은 보이지 않습니다.

일반적인 CGI::XMLApplication 스크립트는 애플리케이션에 대한 액세스 지원을 제공하는 작은 실행 가능 스크립트, 다양한 관리자 메서드를 구현하는 논리 모듈, 기반으로 다양한 관리자 메서드를 구현하는 논리 모듈의 세 부분으로 구성됩니다. 애플리케이션의 상태하나 이상의 XSLT 스타일 시트가 있을 수 있습니다. XSLT 스타일 시트는 모듈에서 반환된 결과를 브라우저가 사용자에게 표시할 수 있는 형식으로 변환할 수 있습니다.

아래에서는 예제를 통해 CGI::XMLApplication의 응용을 간략하게 소개합니다.

예 1: CGI XSLT 게이트웨이

CGI::XMLApplication은 프로젝트에 참여한 디자이너와 개발자가 XSLT 스타일시트를 사용하여 애플리케이션의 논리와 프레젠테이션을 분리하여 이러한 분리를 명백하게 한다고 가정합니다. 매우 직접적 그리고 프로젝트에 아무런 영향을 미치지 않습니다. 개발자는 setStylesheet가 현재 애플리케이션 상태와 일치하는 XSLT 스타일 시트의 위치를 ​​반환하도록 만들 수만 있으면 됩니다. 애플리케이션에서 생성된 DOM 트리의 변환, XSLT 매개변수를 변환 엔진으로 전송, 변환된 콘텐츠를 브라우저로 전송하는 과정은 모두 사용자에게 투명합니다.

이러한 분리를 강조하기 위해 첫 번째 예는 전통적인 의미의 웹 애플리케이션이 아니라 전체 XML 콘텐츠를 변환하기 위해 서버의 cgi-bin에 추가할 수 있는 일반 XSLT 게이트웨이입니다. 디렉토리 트리가 변환됩니다. 요청하는 브라우저에 맞는 형식으로 변환되며 이 모든 것이 사용자, 스타일시트 및 문서 작성자에게 투명합니다.

첫 번째 단계는 클라이언트의 요청을 애플리케이션에 연결하는 CGI 스크립트를 설정하는 것입니다. 우리는 URL을 통해 XML 문서를 쉽게 탐색할 수 있도록 하고 이러한 문서 간의 하이퍼링크 생성을 직관적으로 만들고 싶습니다. 따라서 URL 경로의 노드로서 노드 오른쪽에 있는 모든 항목이 XML 콘텐츠가 포함된 가상 문서 환경 내에서 해석되도록 확장 없이 CGI 스크립트를 생성할 것입니다. 이 경우 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를 유일한 매개변수로 전달하여 요청을 처리합니다.

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

CGI 스크립트가 완성되었습니다. 아래에서는 대부분의 작업을 수행하는 XSLGateway 모듈을 만듭니다.

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

소개에서 언급했듯이 CGI::XMLApplication은 event 호출을 통해 작동합니다. 특정 메소드의 실행은 지정된 필드(일반적으로 양식 을 제출하는 데 사용되는 버튼 의 이름)의 입력에 따라 달라지며 두 가지 호출 메소드(selectStylesheet 및 requestDOM 메소드.

selectStylesheet는 관련 XSLT 스타일시트에 대한 전체 파일 시스템 경로를 반환합니다. 단순화를 위해 스타일시트가 단일 디렉토리에 보관된다고 가정합니다. 시스템의 유연성을 높이기 위해 $context-> {STYLE} 필드를 통해 다른 스타일 시트를 제공할 수 있습니다.

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

다음으로 전송된 XML 문서의 XML::LibXML DOM표현식을 반환하는 requestDOM 메서드를 만들어야 합니다. 게이트웨이는 정적 파일에서만 작동하므로 XML::LibXML을 사용하여 문서를 구문 분석하고 결과 트리를 반환해야 합니다.

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

이 시점에서 CGI 스크립트는 서버의 cgi-bin 디렉토리에서 실행해도 안전하며 일부 XML 문서와 하나 또는 두 개의 XSLT 스타일시트를 일부 적절한 디렉토리에 업로드합니다. 이제 작업 결과 테스트를 시작할 수 있습니다. localhost/cgi-bin/stylechooser/mydocs/somefile.xml에 대한 요청은 인터넷 서버가 /opt/www/htdocs를 사용하여 /opt/www/htdocs/xmldocs/ 디렉토리에서 mydocs/somefile.xml 파일을 선택하도록 합니다. /stylesheets /의 스타일시트 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 모듈을 사용하여 간단한 웹 페이지 튜토리얼 예제 만들기

4. Python CGI 프로그래밍 예제 튜토리얼 공유

5 . CGI란? Python CGI 프로그래밍에 대한 자세한 소개

6. FastCGI 프로세스가 예기치 않게 종료되어 500 오류가 발생했습니다

위 내용은 최신 CGI 애플리케이션을 위한 XML 및 샘플 코드에 대한 자세한 설명의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!