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;

完！