代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/346656/11733851
cgi xcolors.cgi
#!/usr/bin/perl -wT
use strict;
use HTML::Template;
my $rgb_file = "/usr/X11/lib/X11/rgb.txt";
my $template = "/usr/local/apache/templates/xcolors.tmpl";
my @colors = parse_colors( $rgb_file );
www.eeworm.com/read/346656/11733854
cgi upload.cgi
#!/usr/bin/perl -wT
use strict;
use CGI;
use Fcntl qw( :DEFAULT :flock );
use constant UPLOAD_DIR => "/usr/local/apache/data/uploads";
use constant BUFFER_SIZE => 16_384;
use constant MAX_FIL
www.eeworm.com/read/346656/11733913
cgi loads.cgi
#!/usr/bin/perl -wT
use strict;
use CGI;
use GD;
BEGIN {
$ENV{PATH} = '/bin:/usr/bin:/usr/ucb:/usr/local/bin';
delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
}
use constant LOAD_MAX =
www.eeworm.com/read/346656/11733922
cgi welcome.cgi
#!/usr/bin/perl -wT
use strict;
my $time = localtime;
my $remote_id = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR};
my $admin_email = $ENV{SERVER_ADMIN};
print "Content-type: text/html\n\n";
pr
www.eeworm.com/read/346651/11733950
pdf cgi脚本.pdf
www.eeworm.com/read/157073/11741527
cgi gifs.cgi
多功能随机抽取号码程序(不完整源码)
演示地址：http://fjpc.net/cgi/gifs.cgi?action=0
摘自 中国Perl协会 用户推广组 helper 2006-01-14 16:40
http://perlchina.sun126.com/cgi-bin/ccb/index.cgi
演示地址：http://fjpc.net/cgi
www.eeworm.com/read/156319/11811406
cgi compare.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
@temp=$co->param('proname');
print "Content-type: text/html\n\n";
if ($#temp
www.eeworm.com/read/156319/11811571
cgi search.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
$name1=$co->param('name1');
$name2=$co->param('name2');
$price1=$co->param('price1');
$price2=$co->param('price2');
$page=$co->para
www.eeworm.com/read/156319/11811599
cgi data.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
my $co=CGI->new();
my $id=$co->cookie('id');
my $key=$co->cookie('key');
print "Content-type: text/html\n\n";
unless (($id eq $supername)&&($key
www.eeworm.com/read/156319/11811746
cgi see.cgi
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
$name2=$co->param('name2');
$filename=$co->param('mydir');
print "Content-type: text/html\n\n";
&check($name2,$filename);
open (f,"