返回列表 回复 发帖

PerlScript编写ASP

作者:大自然
日期:2001-6-6 12:33:13

PerlScript编写ASP
Nighthawk注:
    尽管这些年来Perl为广大编程爱好者所熟悉,但却对Perl存在一个令人尴尬的误解,以为Perl就是CGI,经常有人问我Perl和CGI,和PHP,和ASP比较如何如何,这是实在是件很遗憾的事情.这里特地贴出下面这篇文摘,也许能减少一些这方面的 误解.

    本文将进一步讲述Perl在可嵌入技术的广域性,和PerlScript 在脚本技术领域的功用。以前的文章我说了ePerl、Embed Perl和Mod_Perl 技术,它们都是单独领域的技术,是在本身基础上的延伸。而本文将讲述如何用PerlScript写ASP,或者是说在ASP中写PerlScript。

    学习本文后,你将会知道Perl是如何强大,它的兼容性是没有任何语言可以比的。在目前Web页编程中,最为盛行的技术:CGI、ASP、PHP、JSP等,其中CGI就包含了Perl、C/C++、JAVA等技术,在CGI 技术中流行的语言就是Perl,Perl的历史悠久,有着传统的编程方式和自然编写方法,在ASP、PHP、JSP等技术没有出现之前,是WEB也编程中最为流行或者说是标准的编程技术。经常有人拿Perl或是CGI与ASP、PHP、JSP等技术相比,我在这里想重申一次,Perl、CGI与ASP、PHP、JSP不是一个领域一个类别,就好比水果和红薯他们如何比?这些配比方法在小学中就讲述得很详细了,所以希望广大程序技术人员不要被误导。Perl是一个语言,它与C/C++、Java、Basic等是一个类别的一个领域的,而ASP(Active Server Page)、PHP(Personal Home Page)、JSP(Java Server Page),大家可以从英文中看出他们后面都有Page,简单的你可以理解成为超文本语言HTML的服务器端语言,而真正输出的HTML是客户端语言。我编写CGI,特别是用Perl编写了几年的程序,写了无数的商业软件,然而现在很多舆论对Perl和CGI评价非常不好,然而这些都是非常不负责任的评价,对这个行业带来了很大的损失,严重减慢了Perl在国内发展的速度。而PerlScript 是Perl语言中的脚本语言,并非Perl脚本,也就是说它我们常说的Perl是不同的,它是Perl的一个脚本语言。类似于VB,大家知道VB有VBScript,PerlScript 就好像VBScript,也可以说是VBScript同类,理解这一点就好理解以下的内容。大家知道VBScript分为客户端、服务器端,客户端可以在浏览器(诸如:Internet Explorer、Netscape)中应用,很多网站就用VBScript 做一些客户端的分析处理工作;服务器端就是大家经常在ASP里面写的VBScript一样"<%@ LANGUAGE="VBSCRIPT" %>"。PerlScript 是Perl的一个子集,Perl->erlScript。

PerlScript 在实际应用中有很多地方与平时写的Perl程序是不一样的,比如我们一般显示输出信息都用"print ';info\n\n';;",而在使用PerlScript的时候就不能使用这样的语法,否则将会造成语法无法识别;PerlScript 在默写方面使用的是面向对象技术为基础。所以如果想输出信息,必须采取对象方法:"&#36;Response->Write("info");"。
如何在动态服务页中(ASP)应用PerlScript 作为编写脚本呢?平时我们写ASP的时候都需要声明语言类型,例如我们用VBScript编写ASP时候,必须胜名"<%@ LANGUAGE="VBSCRIPT" %>",在使用PerlScript 的时候也是一样,声明格式是一样的"<%@ Language=PerlScript %>"。现在我们就可以开始写PerlScript 的ASP了。是不是有些兴奋?我们按照惯例,都要写一个"hello world"脚本啦。其实ASP可以不用写的什么脚本的,可以在HTML直接打出,然而现在这里是为了能够让您更容易的了解PerlScript在ASP的具体应用。现在我们建立第一个ASP页
  1. <%@Language=PerlScript%>
  2. <HTML>
  3. <TITLE> PerlScript Test </TITLE>
  4. <%
  5. for(&#36;i=0; &#36;i<=10; &#36;i+=2) {
  6. &#36;Response->Write("");
  7. &#36;Response->Write("Hello World!");
  8. }
  9. %>
  10. </HTML>
复制代码
在这里大家一定要注意
"&#36;Response->Write("");"为什么不用print呢?因为print 是对程序而言,是直接的,而ASP是间接的输出。在ASP里面使用PerlScript是自动应用了ASP相关模块(use ASP;)。这个页内容是进行循环依次输出字的大小。
访问得到服务器的变量,也不是以前那么样子了,命令是
  1. "<%= &#36;Request->ServerVariables(';SERVER_SOFTWARE';)->Item() %> "
复制代码
我们一般在Perl里面则是
"&#36;ENV{';SERVER_SOFTWARE';};"

得到POST或者GET数据,比以往在Perl程序中容易很多。
POST:"&#36;Request->Form(';name';)->Item()"

而GET: "Request->QueryString(';name';)->Item()"
在输出非"text/html"类型数据的时候,首先要使用模块:"Win32::OLE::Variant;",比如输出"image/GIF"erl程序方法是:
  1. print "Content-type:image/GIF\n\n";
复制代码
而在PerlScript中用:
  1. &#36;Response->{ContentType} = "image/GIF";
复制代码
输出数据方法则是:
  1. &#36;Response->BinaryWrite(Win32::OLE->Variant(VT_UI1, &#36;image));
复制代码
取得ASP的错误信息:
  1. "&#36;ASPError = &#36;Server->GetLastError();"
复制代码
设置浏览器Cookies:
  1. &#36;Response->Cookies->SetProperty(
  2. ';类别';,
  3. ';Cookies';,
  4. ';这是一个Cookies';
  5. );
复制代码
设置允许URL:
  1. &#36;Response->Cookies(';Cookie';)->{Domain} = ';tanshuai.net';;
复制代码
设置过期时间:
  1. &#36;Response->Cookies(';someCookie';)->{Expires} = ';January 1, 2001';;
复制代码
数据库连接:
  1. <%
  2. &#35;建立连接ADOBD的对象
  3. &#35;
  4. &#36;Conn = &#36;Server->CreateObject("ADODB.Connection");
  5. &#35;打开系统 DSN
  6. &#35;
  7. &#36;Conn->Open( "Tanshuai" );
  8. &#35; 执行 SQL 查询
  9. &#35;
  10. &#36;RS = &#36;Conn->Execute( "SELECT * FROM Orders" );
  11. &#35;取得目标查询队列数
  12. &#36;count = &#36;RS->Fields->{Count};
  13. &#35; 输出显示每个队列名
  14. &#35;
  15. for ( &#36;i = 0; &#36;i < &#36;count; &#36;i++ ) {
  16. &#36;Response->Write( &#36;RS->Fields(&#36;i)->Name );
  17. &#36;Response->Write("
  18. ");
  19. };
  20. &#35; 输出所有队列值
  21. &#35;
  22. while ( ! &#36;RS->{EOF} ) {
  23. for ( &#36;i = 0; &#36;i < &#36;count; &#36;i++ ) {
  24. &#36;Response->Write(" ");
  25. &#36;Response->Write(&#36;RS->Fields(&#36;i)->{Value});
  26. &#36;Response->Write("
  27. ");
  28. };
  29. &#35;移动到下一个纪录
  30. &#35;
  31. &#36;RS->MoveNext();
  32. };
  33. &#35; 关闭所有对象
  34. &#35;
  35. &#36;RS->Close();
  36. &#36;Conn->Close();
  37. %>
复制代码
在PerlScript中sub、if、else、else if、for each、while、声明变量、打开文件、字符处理都、调用模块文件都是按照以前的样子。只是在对于Web服务器间的特殊处理,需要使用特殊方法。
另外&#35;在脚本编写的时候仍然是作为注解符号,而且一定要记得每个脚本命令结束后必须要填写";"结束符号。
通过本文您已经掌握了如何用Perl的Perl脚本(PerlScript)编写ASP了。Perl的强大功用和广泛的兼容性,是没有任何一个技术可比的。目前Perl可嵌入技术包含:C嵌入Perl、Java 嵌入Perl、ASP嵌入Perl、Apache嵌入 Perl、WSH嵌入Perl、WSC 嵌入Perl……
Perl其实是一个简单易学的通用信息技术语言,我觉得现在普及计算机,首先应该普及的就是Perl语言了,PERL比BASIC自然得多。好像人们在说话,它的编写方式就好像我们处理事务一样。学会了Perl,不但对你学习其它语言(诸如:C/C++、JAVA)有很大的促进、帮助并加快学习进度,Perl的强大发展趋势,可以让您"投机取巧",在其它流行的编程技术中嵌入,这样在您不懂得或是觉得一种算法很麻烦的时候,用Perl来帮助你快捷的完成。让您在其它语言中从Perl慢慢进化成该种语言,是相当顺利的平稳过渡。我发现在学习Perl以后,学习其它语言速度有很大的加快。

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表