一 个 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{$_}'＜BR＞\n　 for sort keys %ENV; print qq{STDIN: `}; print ＜STDIN＞ print qq{'}; print qq{＜p＞＜a href="env.cgi?some%20stuff"＞Circular link＜/a＞＜br＞}; 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/amp;/amp;/g; $source =~ s/＜/＜/g; $source =~ s＞/＞/g; print "Code for this page: ＜pre＞\n$source\n＜/pre＞"; print "＜/body＞＜/html＞";