zoukankan      html  css  js  c++  java
  • perl中调用cgi


    参考:
    http://www.willmaster.com/library/manage-forms/using_perl_to_submit_a_form.php 

    http://www.oschina.net/code/snippet_12_854 

    有时需要在perl中非交互地调用已有的cgi来完成一定的功能,此时需要模拟一个http请求来调用cgi。

    get方式调用:

          1 use HTTP::Request::Common;
          2 use LWP::UserAgent;
          3 $user_agent = LWP::UserAgent->new;
          4 $request = GET 'http://clearcase/~xhzhu/cgi/cgireader.cgi?text1=hello&text2=here';
          5 $response = $user_agent->request($request);
          6 print $response->as_string;

    post方式调用:

          1 use HTTP::Request::Common;
          2 use LWP::UserAgent;
          3 $user_agent = LWP::UserAgent->new;
          4 $request = POST 'http://clearcase/~xhzhu/cgi/cgireader.cgi',
          5     [text1 => 'Hello', text2 => 'there'];
          6 $response = $user_agent->request($request);
          7 print $response->as_string;

    cgireader.cgi:

          1 #!/usr/local/bin/perl
          2 use CGI;
          3
          4 $co = new CGI;
          5
          6 print $co->header,
          7
          8 $co->start_html(
          9     -title=>'CGI Example',
         10     -author=>'yourName',
         11     -BGCOLOR=>'white',
         12     -LINK=>'red'
         13 );
         14
         15 if ($co->param()) {
         16     print
         17         "You entered this text: ",
         18         $co->em($co->param('text1')),
         19         " ",
         20         $co->em($co->param('text2')),
         21         ".";
         22 } else {
         23     print "Sorry, I did not see any text.";
         24 }
         25 print $co->end_html;

    完! 

     

  • 相关阅读:
    Mybatis中的动态SQL
    Mybatis核心知识点
    Java8之Stream详解
    多线程知识点总结(二)
    多线程知识点总结(一)
    数据库中的行锁和表锁
    数据库中的sql完整性约束
    数据库中的sql语句总结
    全局变量
    打印 输出 debug
  • 原文地址:https://www.cnblogs.com/itech/p/2698856.html
Copyright © 2011-2022 走看看