Perl - CGI - Formulario Enviar ejemplo

El siguiente ejemplo de formulario PERL/CGI le pide a un usuario que ingrese dos enteros y tras el envío se realiza una adición en ambos enteros enviados.

Nota: Para manejar ambos enteros, la acción del método "post" se establece en sí misma. Lo que significa que se creará un método de publicación HTML en un formato siguiente:

Form Action = "/CGI-Bin/Perl-CGI-Form.CGI "enctype =" multipart/form-data "método =" post " 

Guarde una siguiente forma de perl-cgi.Código CGI en/usr/lib/cgi-bin/:

#!/usr/bin/perl -t usa estricto; use CGI QW/: Standard/; encabezado de impresión, start_html ('Perl/cgi Form Ejemplo'), start_form, "Integer 1:", TextField ('num1'), Br, "Integer 2:", TextField ('num2'), br, envía, end_form, hora; imprimir param ('num1')+param ('num2'), p, end_html; salida; 

Hacerlo ejecutable:

# CHMOD 755/usr/lib/cgi-bin/perl-cgi-forma.CGI 

Al navegar por su navegador al programa PERL/CGI anterior, debe ver una página similar a la siguiente. Actualmente, el formulario solo puede manejar enteros: