Mega Code Archive

 

Categories / Perl / Network

 

Query a Perl CGI

use LWP::Simple; use URI::URL; $url = url('http://www.yourserver.com/cgireader.cgi'); $url->query_form(text1 => 'Hello', text2 => 'there'); $html = get($url); print $html; #File: cgireader.cgi #!/usr/local/bin/perl use CGI;                              $co = new CGI;                         print $co->header,                     $co->start_html(     -title=>'CGI Example',      -author=>'yourName',      -BGCOLOR=>'white',      -LINK=>'red' ); if ($co->param()) {     print          "You entered this text: ",          $co->em($co->param('text1')),          " ",         $co->em($co->param('text2')),          "."; } else {     print "Sorry, I did not see any text."; } print $co->end_html;