Perl CGI编程

最新推荐文章于 2022-03-09 10:54:35 发布
最新推荐文章于 2022-03-09 10:54:35 发布
阅读量203 收藏
点赞数
文章标签： c/c++ python shell

http://www.runoob.com/perl/perl-cgi-programming.html

 

什么是CGI

CGI 目前由NCSA维护，NCSA定义CGI如下：

CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如：HTTP服务器，提供同客户端HTML页面的接口。

网页浏览

为了更好的了解CGI是如何工作的，我们可以从在网页上点击一个链接或URL的流程：

  • 1、使用你的浏览器访问URL并连接到HTTP web 服务器。
  • 2、Web服务器接收到请求信息后会解析URL，并查找访问的文件在服务器上是否存在，如果存在返回文件的内容，否则返回错误信息。
  • 3、浏览器从服务器上接收信息，并显示接收的文件或者错误信息。

CGI程序可以是Python脚本，PERL脚本，SHELL脚本，C或者C++程序等。

CGI架构图

cgiarch

Web服务器支持及配置

在你进行CGI编程前，确保您的Web服务器支持CGI及已经配置了CGI的处理程序。

Apache 支持CGI 配置：

设置好CGI目录：

ScriptAlias /cgi-bin/ /var/www/cgi-bin/

所有的HTTP服务器执行CGI程序都保存在一个预先配置的目录。这个目录被称为CGI目录，并按照惯例，它被命名为/var/www/cgi-bin目录。

CGI文件的扩展名为.cgi，Perl 也可以使用.pl扩展名。

默认情况下，Linux服务器配置运行的cgi-bin目录中为/var/www。

如果你想指定其他运行CGI脚本的目录，可以修改httpd.conf配置文件，如下所示：

<Directory "/var/www/cgi-bin">
   AllowOverride None
   Options +ExecCGI
   Order allow,deny
   Allow from all
</Directory>

在 AddHandler 中添加 .pl 后缀，这样我们就可以访问 .pl 结尾的 Perl 脚本文件：

AddHandler cgi-script .cgi .pl .py

第一个 CGI 程序

以下我们创建一个 test.cgi 文件，代码如下所示：

test.cgi 代码

#!/usr/bin/perl print "Content-type:text/html\r\n\r\n"; print '<html>'; print '<head>'; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print '</head>'; print '<body>'; print '<h2>Hello Word! </h2>'; print '<p>来自菜鸟教程第一个 CGI 程序。</p>'; print '</body>'; print '</html>'; 1;

然后通过浏览器打开 http://localhost/cgi-bin/test.cgi，输出结果如下：

脚本第一行的输出内容"Content-type:text/html\r\n\r\n"发送到浏览器并告知浏览器显示的内容类型为"text/html"。

HTTP头部

test.cgi文件内容中的" Content-type:text/html"即为HTTP头部的一部分，它会发送给浏览器告诉浏览器文件的内容类型。

HTTP头部的格式如下：

HTTP 字段名: 字段内容

例如：

Content-type:text/html\r\n\r\n

以下表格介绍了CGI程序中HTTP头部经常使用的信息：

头描述
Content-type:请求的与实体对应的MIME信息。例如: Content-type:text/html
Expires: Date响应过期的日期和时间
Location: URL用来重定向接收方到非请求URL的位置来完成请求或标识新的资源
Last-modified: Date请求资源的最后修改时间
Content-length: N请求的内容长度
Set-Cookie: String设置Http Cookie

CGI环境变量

所有的CGI程序都接收以下的环境变量，这些变量在CGI程序中发挥了重要的作用：

变量名描述
CONTENT_TYPE这个环境变量的值指示所传递来的信息的MIME类型。目前，环境变量CONTENT_TYPE一般都是：application/x-www-form-urlencoded,他表示数据来自于HTML表单。
CONTENT_LENGTH如果服务器与CGI程序信息的传递方式是POST，这个环境变量即使从标准输入STDIN中可以读到的有效数据的字节数。这个环境变量在读取所输入的数据时必须使用。
HTTP_COOKIE客户机内的 COOKIE 内容。
HTTP_USER_AGENT提供包含了版本数或其他专有数据的客户浏览器信息。
PATH_INFO这个环境变量的值表示紧接在CGI程序名之后的其他路径信息。它常常作为CGI程序的参数出现。
QUERY_STRING如果服务器与CGI程序信息的传递方式是GET，这个环境变量的值即使所传递的信息。这个信息经跟在CGI程序名的后面，两者中间用一个问号'?'分隔。
REMOTE_ADDR这个环境变量的值是发送请求的客户机的IP地址，例如上面的192.168.1.67。这个值总是存在的。而且它是Web客户机需要提供给Web服务器的唯一标识，可以在CGI程序中用它来区分不同的Web客户机。
REMOTE_HOST这个环境变量的值包含发送CGI请求的客户机的主机名。如果不支持你想查询，则无需定义此环境变量。
REQUEST_METHOD提供脚本被调用的方法。对于使用 HTTP/1.0 协议的脚本，仅 GET 和 POST 有意义。
SCRIPT_FILENAMECGI脚本的完整路径
SCRIPT_NAMECGI脚本的的名称
SERVER_NAME这是你的 WEB 服务器的主机名、别名或IP地址。
SERVER_SOFTWARE这个环境变量的值包含了调用CGI程序的HTTP服务器的名称和版本号。例如，上面的值为Apache/2.2.14(Unix)

以下是一个简单的CGI脚本输出CGI的环境变量：

实例

#!/usr/bin/perl print "Content-type: text/html\n\n"; print '<meta charset="utf-8">'; print "<font size=+1>环境变量：</font>\n"; foreach (sort keys %ENV) { print "<b>$_</b>: $ENV{$_}<br>\n"; } 1;

文件下载

如果我们想通过 Perl CGI 实现文件下载，需要设置不同的头部信息，如下所示：

实例

#!/usr/bin/perl # HTTP Header print "Content-Type:application/octet-stream; name=\"FileName\"\r\n"; print "Content-Disposition: attachment; filename=\"FileName\"\r\n\n"; # Actual File Content will go hear. open( FILE, "<FileName" ); while(read(FILE, $buffer, 100) ) { print("$buffer"); }

使用GET方法传输数据

GET方法发送编码后的用户信息到服务端，数据信息包含在请求页面的URL上，以"?"号分割, 如下所示：

http://www.test.com/cgi-bin/test.cgi?key1=value1&key2=value2

有关 GET 请求的其他一些注释：

  • GET 请求可被缓存
  • GET 请求保留在浏览器历史记录中
  • GET 请求可被收藏为书签
  • GET 请求不应在处理敏感数据时使用
  • GET 请求有长度限制
  • GET 请求只应当用于取回数据

简单的url实例：GET方法

以下是一个简单的URL，使用GET方法向test.cgi程序发送两个参数：

/cgi-bin/test.cgi?name=菜鸟教程&url=http://www.runoob.com

以下为test.cgi文件的代码：

实例

#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 读取文本信息 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; } # 读取 name/value 对信息 @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } $name = $FORM{name}; $url = $FORM{url}; print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print "</head>"; print "<body>"; print "<h2>$name网址：$url</h2>"; print "</body>"; print "</html>"; 1;

查看浏览器，输出结果如下：

简单的表单实例：GET方法

以下是一个通过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本同样是test.cgi文件，test.html 代码如下：

test.html 文件代码

<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="get"> 站点名称: <input type="text" name="name"> <br /> 站点 URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>

浏览器中，执行效果如下所示：

使用POST方法传递数据

使用POST方法向服务器传递数据是更安全可靠的，像一些敏感信息如用户密码等需要使用POST传输数据。

以下同样是 test.cgi ，它也可以处理浏览器提交的POST表单数据:

test.cgi 代码

#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 读取文本信息 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }else { $buffer = $ENV{'QUERY_STRING'}; } # 读取 name/value 对信息 @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } $name = $FORM{name}; $url = $FORM{url}; print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>'; print "</head>"; print "<body>"; print "<h2>$name网址：$url</h2>"; print "</body>"; print "</html>"; 1;

以下是一个通过HTML的表单使用GET方法向服务器发送两个数据，提交的服务器脚本同样是test.cgi文件，test.html 代码如下：

test.html 代码

<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="post"> 站点名称: <input type="text" name="name"> <br /> 站点 URL: <input type="text" name="url" /> <input type="submit" value="提交" /> </form> </body> </html>

浏览器中，执行效果如下所示：

通过CGI程序传递checkbox数据

checkbox用于提交一个或者多个选项数据，test.html 代码如下：

test.html 代码

<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>菜鸟教程(runoob.com)</title> </head> <body> <form action="/cgi-bin/test.cgi" method="POST" target="_blank"> <input type="checkbox" name="runoob" value="on" /> 菜鸟教程 <input type="checkbox" name="google" value="on" /> Google <input type="submit" value="选择站点" /> </form> </body> </html>

以下为 test.cgi 文件的代码：

test.cgi 代码

#!/usr/bin/perl local ($buffer, @pairs, $pair, $name, $value, %FORM); # 读取信息 $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }else { $buffer = $ENV{'QUERY_STRING'}; } # 读取 name/value 对信息 @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$name} = $value; } if( $FORM{runoob} ){ $runoob_flag ="ON"; }else{ $runoob_flag ="OFF"; } if( $FORM{google} ){ $google_flag ="ON"; }else{ $google_flag ="OFF"; } print "Content-type:text/html\r\n\r\n"; print "<html>"; print "<head>"; print '<meta charset="utf-8">'; print '<title>菜鸟教程(runoob.com)</title>
weixin_34365417
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
使用Perl编写CGI程序（前后端）
芸灵fly的博客
03-07 4979
说明CGI(Common Gateway Interface) 是WWW技术中最重要的技术之一，有着不可替代的重要地位。CGI是外部应用程序（CGI程序）与WEB服务器之间的接口标准，是在CGI程序和Web服务器之间传递信息的过程。CGI规范允许Web服务器执行外部程序，并将它们的输出发送给Web浏览器，CGI将Web的一组简单的静态超媒体文档变成一个完整的新的交互式媒体。Common Gatew...
perl cgi编程简介
stonesharp的专栏
01-12 4141
CGI是什么 ? 通用网关接口CGI，是一组标准定义之间交换信息的Web服务器和自定义脚本。 维护NCSA和NCSA CGI规范定义CGI如下： 通用网关接口CGI，是一个标准的外部网关程序接口与信息服务器，如HTTP服务器。 目前的版本是CGI/1.1和CGI/1.2正在进行中。 网页浏览 要理解这个概念的CGI，让我们看看会发生什么，当我们点击一个超链接，浏
PERL CGI简介及指令示范
程序人生
12-13 4468
PERL CGI简介及指令示范 本文出自:http://www.01-world.com 作者: 蔡奇玉、连振汉、张志强 (2001-08-22 12:00:00) 摘自蔡奇玉、连振汉、张志强著《CGI编程指南》第六章 为尊重作者版权,只作部分节选,以作推介之用, 推荐您购买原书阅读! 6.1 Perl语言简介6.2 如何使用Perl来写程序6.3 Perl语法介绍 6.3.1 Perl语言的
Perl CGI
luoshenFU的专栏
02-12 2216
用which perl 或 which perl5来查看Perl的安装目录：　/usr/bin/perl 或 　　/usr/locaiAin/per15 Perl版本：perl -v, perl5 -v Perl脚本第一句：perl程序的安装目录，比如#/usr/bin/perl, 同时#也是注释符号写完脚本要赋予可执行权限 Perl的变量基本上有三种即纯量变量(ScaiarVa
Perl读取CGI环境变量
weixin_52505665的博客
03-09 194
#!/usr/bin/perl print "Content-type:text/html\r\n\r\n"; print '<html>'; print '<head>'; print '<meta charset="utf-8">'; print '<title>Enviroment variables</title>'; print '</head>'; print '<body>'; print '<pr
perl CGI编程基础
09-11
Perl CGI编程基础是Web开发领域中的一个重要话题，它允许开发者使用Perl语言来创建交互式的Web应用程序。CGI，即Common Gateway Interface（通用网关接口），是一种标准，使得Web服务器能够与各种程序进行通信，处理...
perl CGI编程
03-30
一本CGI学习的入门好书！CGI是很多生物学软件的后台工具语言，如Cmap，非常重要的比较基因组学分析软件，就是依赖perl CGI.
Perl-CGI.rar_CGI Perl_CGI编程_cgi
09-21
Perl是CGI编程中常用的一种脚本语言，因其强大的文本处理能力而受到青睐。本资源包“Perl-CGI.rar”显然是针对Perl CGI编程的学习资料，适合对这一领域感兴趣的初学者。 Perl CGI编程涉及到的知识点广泛，主要包括...
CGI编程使用Perl
08-22
Perl作为一种强大的脚本语言，常被用于CGI编程，因为它提供了灵活的数据处理能力和丰富的文本操作功能。 在Perl中进行CGI编程，首先需要理解HTTP协议的基本原理，比如GET和POST请求，以及它们如何传递数据到服务器...
Perl基础教程(cgi)
12-24
Perl是Practical Extraction and Report Language的缩写，它是由Larry Wall设计的，并由他不断更新和维护，用于在UNIX环境下编程。
CGI编程：使用Perl（第二版）
04-09
CGI编程：使用Perl（第二版）
神奇的perl与使用Perl编写CGI程序合集 PDF
03-05
神奇的perl-最佳PERL入门教程与CGI编程_使用Perl的PDF版本，入门perl很好的资料
Perl CGI模块
12-07
perl 的CGI模块。在linux下解压，之后进入解压模块，先运行命令：perl Makefile.pl ，之后产生Makefile，然后运行 make ,make test. 之后运行make isntall.
perl cgi
03-21
用perl编写CGI程序
perl-cgi高级
weixin_30793643的博客
10-07 193
一 CGI.pm中的方法（routines）调用1. CGI.pm实现了两种使用方法，分别是面向对象的方式和传统的perlmodule方法的方式。面向对象的方式： #!/usr/local/bin/perl -w use CGI; # load CGI routines $q = CGI->new; ...
Perl CGI简介
snlying的专栏
03-11 1355
 发信人: chenhao (努力学习), 信区: Linux标 题: Perl CGI简介发信站: 北大未名站 (2000年11月19日15:57:07 星期天) , 转信Perl CGI简介Perl是一个庞大的系统，不 过，我一般只用它写一个留言板什么的，再就是代替shell做一些简单的工作。缺省 时，linux的perl 5安装在/usr/bin下，命令是/
CGI.pm manual document
weixin_34362875的博客
10-03 428
CGI Library AS OF 10 FEBRUARY 2005 (CGI.pm VERSION 3.06) THIS DOCUMENT IS NO LONGER BEING MAINTAINED. PLEASE CONSULT THE CGI POD DOCUMENTATION USING "perldoc CGI" Abstract This perl 5 library use...
Perl cgi编程语法
KevinXC5的专栏
10-09 983
CGI脚本是用下列三种方法使用的: 作为一个表单的ACTION   action=/cgi-bin/upload.cgi> 链接link Display the Date SSI 将CGI代码嵌在HTML中，称为SHTML     perl cgi 的html 输出 perl-cgi
使用perl进行cgi编程 pdf
最新发布
02-06
使用Perl进行CGI编程可以实现将PDF文件生成为动态的网页内容。Perl作为一种通用的脚本编程语言，可以在CGI程序中用于处理用户请求并生成相应的HTML内容。而PDF是一种具有跨平台性的文件格式，可以用于显示和打印电子文档。 在Perl中，可以使用CGI模块来处理Web服务器发送的请求，并获取用户输入的参数。通过Perl的文件处理功能，可以将PDF文件读取到内存中，然后使用PDF生成库（如PDF::API2）来操作PDF文件。我们可以使用这些库生成新的PDF文件，也可以在现有的PDF文件上进行修改。 在CGI程序中，我们可以结合HTML标记语言来生成动态的网页内容。可以通过Perl的输出函数将生成的HTML代码输出到Web服务器，从而实现将PDF文件转换为可在网页中显示的内容。 下面是一个简单的使用Perl进行CGI编程的示例： ```perl #!/usr/bin/perl use strict; use warnings; use CGI; # 创建CGI对象 my $cgi = CGI->new(); # 输出HTTP头部信息 print $cgi->header('application/pdf'); # 打开PDF文件 open my $pdf_fh, '<', 'path/to/pdf/file.pdf' or die $!; # 读取PDF文件内容 my $pdf_content = do { local $/; <$pdf_fh> }; # 输出PDF文件内容 print $pdf_content; # 关闭PDF文件 close $pdf_fh; ``` 以上示例中，我们首先创建了一个CGI对象，然后使用CGI模块的header函数输出HTTP头部信息，指定响应内容的类型为`application/pdf`，表示返回的是PDF文件。 接下来，我们使用Perl的文件处理功能打开PDF文件，并读取其内容到变量$pdf_content中。最后，通过输出函数将PDF文件内容输出到Web服务器，从而将PDF文件转换为可在网页中显示的内容。 总之，使用Perl进行CGI编程可以方便地将PDF文件转换为动态的网页内容，从而实现在Web页面中显示和使用PDF文件。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值