代码搜索：cgi
找到约 10,000 项符合「cgi」的源代码
代码结果 10,000
www.eeworm.com/read/261194/11660104
cgi sprite.cgi
#!/usr/bin/perl
use strict;
use SWF::Shape ();
use SWF::Sprite();
SWF::setScale(1.0);
print "Content-type: application/x-shockwave-flash\n\n";
my $s = new SWF::Shape();
$s->setRightFill($s->addFill
www.eeworm.com/read/261194/11660107
cgi action.cgi
#!/usr/bin/perl -wT
use strict;
use SWF qw(:ALL);
SWF::setScale(1.0);
SWF::setVersion(4);
print "Content-type: application/x-shockwave-flash\n\n";
my $s = new SWF::Shape();
my $f = $s->addFill(0xff,
www.eeworm.com/read/261194/11660109
cgi text.cgi
#!/usr/bin/perl
use strict;
use SWF ('Font');
SWF::setScale(1.0);
########## ADD path to your test.fdb file #######################
my $filename = '/PATH/TO/test.fdb';
print "Content-type: applicat
www.eeworm.com/read/261194/11660114
cgi keypress.cgi
#!/usr/bin/perl
use strict;
use SWF qw(Sprite Action Shape);
use SWF::TextField qw(:Text);
use SWF::Button qw(:Button);
SWF::setScale(1.0);
SWF::setVersion(4);
########## ADD path to your test.fdb
www.eeworm.com/read/347178/11686161
cgi mult.cgi
www.eeworm.com/read/346656/11733667
cgi env.cgi
#!/usr/bin/perl -wT
# Print a formatted list of all the environment variables
use strict;
print "Content-type: text/html\n\n";
my $var_name;
foreach $var_name ( sort keys %ENV ) {
print "
www.eeworm.com/read/346656/11733692
cgi store.cgi
#!/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;
my $cart_id = $q->cookie( -name => "cart_id" ) || set_cookie( $q );
# Script continues for users with cookies
# .
# .
sub set_cookie
www.eeworm.com/read/346656/11733700
cgi shoppe.cgi
#!/usr/bin/perl -wT
use strict;
use CGI;
use CGIBook::Error;
use HTML::Template;
BEGIN {
$ENV{PATH} = "/bin:/usr/bin";
delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
sub unindent;
}
us
www.eeworm.com/read/346656/11733816
cgi comments.cgi
#!/usr/bin/perl -wT
use strict;
use CGI;
use DB_File;
use Fcntl qw( :DEFAULT :flock );
my $DBM_FILE = "/usr/local/httpd/data/bookmarklets/comments.dbm";
my $q = new CGI;
my $url = $q->pa
www.eeworm.com/read/346656/11733845
cgi counter.cgi
#!/usr/bin/perl -wT
use strict;
use Fcntl qw( :DEFAULT :flock );
use DB_File;
use constant COUNT_FILE => "/usr/local/apache/data/counter/count.dbm";
my %count;
my $url = $ENV{DOCUMENT_URI};
local *D