and of course here is the code itselfUnquoted string "hr" may clash with future reserved word at ./search.c +gi line 116. Bareword "RIGHT" not allowed while "strict subs" in use at ./search.cg +i line 108. Unquoted string "hr" may clash with future reserved word at ./search.c +gi line 122. syntax error at ./search.cgi line 126, near "}[" Unquoted string "hr" may clash with future reserved word at ./search.c +gi line 131. Execution of ./search.cgi aborted due to compilation errors.
#!/usr/local/bin/perl -wT use strict; use CGI; ... sub begin_html { print start_html( -head=>meta({-http_equiv => 'Content-Type', -content => 'text/html'}), -title=>'Search Results', -BGCOLOR=>'white', -Link=>'black', -vlink=>'black', -alink=>'black'); print table({ -border=>undef, -width=>'100%'},#line 108 Tr( [ td(['Information Technologies']), td({-align=>RIGHT},['Administration']), ] ) ); print hr; #line 116 } sub end_html { print hr; #line 122 print table({ -border=>undef, -BGCOLOR=>'#005533'}, Tr( [ td({-align=>CENTER, font({color=>'white'})}['IT']), #line +126 ] ) ); print hr; #line 131 print end_html;
In reply to use CGI; help or a tutorial? by mojo_the_helper
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |