一 个 CGI 探 针 代 码的编写

来源： 作者：Paladin 出处：巧巧读书 2006-01-09 进入讨论组

• 关 键 词：
• perl
• html
• cgi

　　#!/usr/bin/perl #open STDOUT, "＞", "/tmp/env.txt"; print qq{Content-type: text/html\n\n＜html＞＜head＞＜title＞CGI Environment＜/title＞＜/head＞＜body＞\n}; print qq　\$ENV{$_} =＞ `$ENV{$_}'
\n　 for sort keys %ENV; print qq{STDIN: `}; print ＜STDIN＞ print qq{'}; print qq{＜p＞＜a href="env.cgi?some%20stuff"＞Circular link＜/a＞
}; print qq{＜form method=post＞＜input type=text name=text＞＜input type=submit name=submit value=POST＞＜/form＞}; print qq{＜form method=get＞＜input type=text name=text＞＜textarea name="textarea"＞＜/textarea＞＜input type=submit name=submit value=GET＞＜/form＞}; print qq{＜form method=post＞Input type=image: ＜input type=imae name=imagename src="/image.cgi"＞＜/form＞}; open FILE, $0; local $/; my $source = ＜FILE＞ close FILE; $source =~ s/&/&/g; $source =~ s/＜/＜/g; $source =~ s＞/＞/g; print "Code for this page: ＜pre＞\n$source\n＜/pre＞"; print "＜/body＞＜/html＞";URl收藏 http://www.qqread.com/cgi-perl/c292206701.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：Perl在CGI程序设计中常用的函数

较新的文章：Perl CGI 编程中的安全点滴