init III
This commit is contained in:
30
Perl CGI MOSE My Own Search Engine/cgi-bin/search.pl
Normal file
30
Perl CGI MOSE My Own Search Engine/cgi-bin/search.pl
Normal file
@@ -0,0 +1,30 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use CGI;
|
||||
use CGI::Carp qw(fatalsToBrowser);
|
||||
|
||||
my $cgi = new CGI;
|
||||
|
||||
print $cgi->header();
|
||||
|
||||
print <<START;
|
||||
<html>
|
||||
<head>
|
||||
</head>
|
||||
<body>
|
||||
START
|
||||
|
||||
|
||||
print <<BODY;
|
||||
|
||||
|
||||
...
|
||||
|
||||
|
||||
BODY
|
||||
|
||||
|
||||
print <<FOOTER;
|
||||
</body>
|
||||
</html>
|
||||
FOOTER
|
||||
Reference in New Issue
Block a user