Board logo

标题: 比较两种CGI编程风格 [打印本页]
作者: cnangel    时间: 2003-8-6 17:15     标题: 比较两种CGI编程风格

  1. #!/usr/bin/perl
  3. use CGI;
  4. #$name= adasas;
  5. $addr= remote_host;
  6. $q= new CGI;
  7. print$q->header(-type=>'text/html',
  8. -charset=>'gb_2132'
  9. );
  10. print$q->start_html(-title=>'test',
  11. -bgcolor=>'#FFffFF',
  12. -author=>'cnangel',
  13. -text=>'#000000');
  14. $q->p('This is what I mean by '),
  15. $q->b('abstracted'),
  16. print$q->end_html();
  17. exit;
复制代码
  1. #!/usr/bin/perl
  3. print "content-type:text/html \n\n";
  5. if(1 eq 1){&eee;exit;}else{print "error";exit;}
  6. sub eee{
  7. print<<EOF
  8. <html>
  9. <head>
  10. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  12. <meta name="ProgId" content="FrontPage.Editor.Document">
  13. <title>leoboard</title>
  14. <meta http-equiv="refresh" content="1; url=http://www.leoboard.com/cgi-bin/leoboard.cgi">
  15. </head>
  16. <body>
  17. </body>
  18. </html>
  19. EOF
  20. }
复制代码




欢迎光临 星星博客 (http://commerce.huhoo.net/) Powered by Discuz! 7.0.0