17 de julio de 2011

[Programacion] Tuxobot El bot del Software Libre - PERL

Aquí dejo un programa hecho en PERL + un formulario en HTML.

Es sencillísimo (y es que apenas estoy aprendiendo de Perl). El bot responde preguntas sobre Software Libre, fue un proyecto de clase y no tiene muchas preguntas, pero les puede servir... Pueden modificarlo a su gusto :D

El archivo de PERL es un cgi y básicamente su funcionamiento es este:

1.- Se muestra el formulario para que el usuario ingrese una pregunta.
2.- Se llama al cgi y éste lo recibe, y comienza un proceso de condiciones.
2.- De acuerdo a la pregunta, el programa almacena una respuesta.
3.- Se muestra la respuesta imprimiendo un formulario muy parecido al original, solo que esta vez es PERL el que lo imprime.

Las condiciones son algo así


if($texto=~/HOLA/){
$respuesta= "Holaaa :D";

y para la impresion del formulario HTML la función EOF que sirve para manejar secciones de HTML de forma muy fácil en PERL.

Este es el código completo, para correrlo tienen que tener instalado Apache+Perl, pueden descargar XAMPP. Y ahora sí aquí esta el "bot" :D


Tuve que subirlo a MU para no mostrar todo el código aquí, que en realidad no es mucho.








No hay comentarios:

Publicar un comentario