Как передать ввод формы в подпрограмму из сценария perl

Question

У меня есть маленький веб-сервер mini-perl, который вызывает http_handler.pl, у которого есть некоторый код для ввода формы.

Для этой части в http_handler:

print $fh '<FORM action="/hello_post.pl" method="POST">First Name: <input type="text" name="first_name"> <br> Last Name: <input type="text" name="last_name"> <input type="submit" value="Submit"></FORM>';

.... как я могу передать пользовательский ввод в подпрограмму hello_post.pl? Я должен был бы потребовать hello_post.pl (либо в http_handler.pl, либо в pl-websrv.pl?), Но тогда как бы я изменил этот оператор печати, чтобы ввод формы просто передавался в подпрограмму hello_post.pl и затем отображался в страница?

То, что я на самом деле хочу в конечном итоге сделать, отличается от простого ввода / отображения обратных имен, но я просто собираю код других, чтобы посмотреть, смогу ли я понять концепцию этого ... Любая помощь была бы отличной! Спасибо!

Вот 3 файла (pl-websrv.pl, http_handler.pl и hello_post.pl)

http://pastebin.com/iPN3WwqC

Answer 1

Начните с написания файла hello_post.pl, подобного приведенному ниже, который просто отображает все параметры.

#!/usr/bin/perl
use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $cgi = CGI->new();

print "Content-Type: text/plain\n\n";

print "hello_post.pl output:\n";

my $params = $cgi->Vars();
foreach my $arg ( sort keys %$params ) {
   print "$arg  ==>  ", $cgi->param($arg), "\n";
}