蝙蝠岛资源网 Design By www.hbtsch.com
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->PerlScript。
PerlScript 在实际应用中有很多地方与平时写的Perl程序是不一样的，比如我们一般显示输出信息都用"print 'info\n\n';"，而在使用PerlScript的时候就不能使用这样的语法，否则将会造成语法无法识别；PerlScript 在默写方面使用的是面向对象技术为基础。所以如果想输出信息，必须采取对象方法："$Response->Write("info");"。
如何在动态服务页中(ASP)应用PerlScript 作为编写脚本呢？平时我们写ASP的时候都需要声明语言类型，例如我们用VBScript编写ASP时候，必须胜名"<%@ LANGUAGE="VBSCRIPT" %>"，在使用PerlScript 的时候也是一样，声明格式是一样的"<%@ Language=PerlScript %>"。现在我们就可以开始写PerlScript 的ASP了。是不是有些兴奋？我们按照惯例，都要写一个"hello world"脚本啦。其实ASP可以不用写的什么脚本的，可以在HTML直接打出，然而现在这里是为了能够让您更容易的了解PerlScript在ASP的具体应用。现在我们建立第一个ASP页
<%@Language=PerlScript%>
<HTML>
<TITLE> PerlScript Test </TITLE>
<%
for($i=0; $i<=10; $i+=2) {
$Response->Write("");
$Response->Write("Hello World!
");
}
%>
</HTML>
在这里大家一定要注意
"$Response->Write("");"为什么不用print呢？因为print 是对程序而言，是直接的，而ASP是间接的输出。在ASP里面使用PerlScript是自动应用了ASP相关模块（use ASP;）。这个页内容是进行循环依次输出字的大小。
访问得到服务器的变量，也不是以前那么样子了，命令是
"<%= $Request->ServerVariables('SERVER_SOFTWARE')->Item() %> "
我们一般在Perl里面则是
"$ENV{'SERVER_SOFTWARE'};"
得到POST或者GET数据，比以往在Perl程序中容易很多。
POST："$Request->Form('name')->Item()"
而GET: "Request->QueryString('name')->Item()"
在输出非"text/html"类型数据的时候，首先要使用模块："Win32::OLE::Variant;"，比如输出"image/GIF"Perl程序方法是：
print "Content-type:image/GIF\n\n";
而在PerlScript中用：
$Response->{ContentType} = "image/GIF";
输出数据方法则是：
$Response->BinaryWrite(Win32::OLE->Variant(VT_UI1, $image));
取得ASP的错误信息：
"$ASPError = $Server->GetLastError();"
设置浏览器Cookies："
$Response->Cookies->SetProperty(
'类别',
'Cookies',
'这是一个Cookies'
);
"
设置允许URL："
$Response->Cookies('Cookie')->{Domain} = 'tanshuai.net';
"
设置过期时间："
$Response->Cookies('someCookie')->{Expires} = 'January 1, 2001';
"
数据库连接："
<%
#建立连接ADOBD的对象
#
$Conn = $Server->CreateObject("ADODB.Connection");
#打开系统 DSN
#
$Conn->Open( "Tanshuai" );
# 执行 SQL 查询
#
$RS = $Conn->Execute( "SELECT * FROM Orders" );
#取得目标查询队列数
$count = $RS->Fields->{Count};
# 输出显示每个队列名
#
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write( $RS->Fields($i)->Name );
$Response->Write("
");
};
# 输出所有队列值
#
while ( ! $RS->{EOF} ) {
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("
");
};
#移动到下一个纪录
#
$RS->MoveNext();
};
# 关闭所有对象
#
$RS->Close();
$Conn->Close();
%>
在PerlScript中sub、if、else、else if、for each、while、声明变量、打开文件、字符处理都、调用模块文件都是按照以前的样子。只是在对于Web服务器间的特殊处理，需要使用特殊方法。
另外#在脚本编写的时候仍然是作为注解符号，而且一定要记得每个脚本命令结束后必须要填写";"结束符号。
通过本文您已经掌握了如何用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以后，学习其它语言速度有很大的加快。
尽管这些年来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->PerlScript。
PerlScript 在实际应用中有很多地方与平时写的Perl程序是不一样的，比如我们一般显示输出信息都用"print 'info\n\n';"，而在使用PerlScript的时候就不能使用这样的语法，否则将会造成语法无法识别；PerlScript 在默写方面使用的是面向对象技术为基础。所以如果想输出信息，必须采取对象方法："$Response->Write("info");"。
如何在动态服务页中(ASP)应用PerlScript 作为编写脚本呢？平时我们写ASP的时候都需要声明语言类型，例如我们用VBScript编写ASP时候，必须胜名"<%@ LANGUAGE="VBSCRIPT" %>"，在使用PerlScript 的时候也是一样，声明格式是一样的"<%@ Language=PerlScript %>"。现在我们就可以开始写PerlScript 的ASP了。是不是有些兴奋？我们按照惯例，都要写一个"hello world"脚本啦。其实ASP可以不用写的什么脚本的，可以在HTML直接打出，然而现在这里是为了能够让您更容易的了解PerlScript在ASP的具体应用。现在我们建立第一个ASP页
<%@Language=PerlScript%>
<HTML>
<TITLE> PerlScript Test </TITLE>
<%
for($i=0; $i<=10; $i+=2) {
$Response->Write("");
$Response->Write("Hello World!
");
}
%>
</HTML>
在这里大家一定要注意
"$Response->Write("");"为什么不用print呢？因为print 是对程序而言，是直接的，而ASP是间接的输出。在ASP里面使用PerlScript是自动应用了ASP相关模块（use ASP;）。这个页内容是进行循环依次输出字的大小。
访问得到服务器的变量，也不是以前那么样子了，命令是
"<%= $Request->ServerVariables('SERVER_SOFTWARE')->Item() %> "
我们一般在Perl里面则是
"$ENV{'SERVER_SOFTWARE'};"
得到POST或者GET数据，比以往在Perl程序中容易很多。
POST："$Request->Form('name')->Item()"
而GET: "Request->QueryString('name')->Item()"
在输出非"text/html"类型数据的时候，首先要使用模块："Win32::OLE::Variant;"，比如输出"image/GIF"Perl程序方法是：
print "Content-type:image/GIF\n\n";
而在PerlScript中用：
$Response->{ContentType} = "image/GIF";
输出数据方法则是：
$Response->BinaryWrite(Win32::OLE->Variant(VT_UI1, $image));
取得ASP的错误信息：
"$ASPError = $Server->GetLastError();"
设置浏览器Cookies："
$Response->Cookies->SetProperty(
'类别',
'Cookies',
'这是一个Cookies'
);
"
设置允许URL："
$Response->Cookies('Cookie')->{Domain} = 'tanshuai.net';
"
设置过期时间："
$Response->Cookies('someCookie')->{Expires} = 'January 1, 2001';
"
数据库连接："
<%
#建立连接ADOBD的对象
#
$Conn = $Server->CreateObject("ADODB.Connection");
#打开系统 DSN
#
$Conn->Open( "Tanshuai" );
# 执行 SQL 查询
#
$RS = $Conn->Execute( "SELECT * FROM Orders" );
#取得目标查询队列数
$count = $RS->Fields->{Count};
# 输出显示每个队列名
#
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write( $RS->Fields($i)->Name );
$Response->Write("
");
};
# 输出所有队列值
#
while ( ! $RS->{EOF} ) {
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("
");
};
#移动到下一个纪录
#
$RS->MoveNext();
};
# 关闭所有对象
#
$RS->Close();
$Conn->Close();
%>
在PerlScript中sub、if、else、else if、for each、while、声明变量、打开文件、字符处理都、调用模块文件都是按照以前的样子。只是在对于Web服务器间的特殊处理，需要使用特殊方法。
另外#在脚本编写的时候仍然是作为注解符号，而且一定要记得每个脚本命令结束后必须要填写";"结束符号。
通过本文您已经掌握了如何用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以后，学习其它语言速度有很大的加快。
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无PerlScript编写ASP(转载)的评论...
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/12/24
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。
一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。
另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。
稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！
昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？
更新日志
2024年12月24日
2024年12月24日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果（九）》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]