zoukankan      html  css  js  c++  java
  • perlCGI编程之测试环境

    可以用cgi对环境进行读取,直接用pint语句打印出来

    #!d:/perl/bin/perl
    use warnings;
    use strict;

    print "Content-type:text/html\n\n";
    print "<HTML><HEAD><TITLE>Request Info</TITLE><HEAD> \n";

    print "<BODY><BLOCKQUOTE><TABLE BORDER =1>\n";
    foreach ('REQUEST_URI','REQUEST_METHOD','QUERY_STRING','PATH_INFO') {
     print "\t<TR><TD> $_ </TD><TD>'";
     print + (exists($ENV{$_}) and $ENV{$_})?$ENV{$_}:'Not provided';
     print "</TD></TR> \n";
    }
    print "</TABLE> \n";
    if ($ENV{'REQUEST_METHOD'} eq 'POST') {
     print "<BR><HR><BR> Request body:  \n";
     while (<>) {
      print "$.: $_ \n";
     }
    }
    print "</BLOCKQUOTE></BODY></HTML> \n";

    用cgi编写表格

    #!d:/perl/bin/perl
    use warnings;
    use strict;

    use CGI::Pretty qw(:standard);

    print header,start_html("Table Demo");

    print table(Tr({-align=>'center',-valign=>'middle'},[
     td(['Tic','Tac','Toe','Tie']),
     td(['Red','Blue','Green','Yellow']),
     td({-colspan=>2},['Left','Right']),
     ]));
     
    print end_html;

  • 相关阅读:
    numpy通用函数
    机器学习之随机森林
    机器学习之支持向量机
    机器学习之逻辑回归
    机器学习之决策树
    机器学*之K*邻
    机器学习之线性回归
    模型之各个指标
    模型之信息熵
    模型之决策树
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2045915.html
Copyright © 2011-2022 走看看