Peticiones web con la librería libwww-perl y manipular resultados.

libwww-perl  es una librería que nos provee de una interfaz para desarrollar clientes web, pero en esta ocasión lo usaremos solo para hacer peticiones web hacia una pagina en un servidor web local  y mostrar  el resultado en la terminal mediante un script en bash.

Esto puede servir para alguna aplicación sencilla que se les ocurra,  por ejemplo yo hice una aplicacion tipo "bloqueo de pc" para cibercafés  utilizando esta librería.

Para esto tenemos que tener instalado:
* Un servidor web  (puede ser apache ó cherokee)
* Tener instalado la libreria libwww-perl
    si no la tienes instalada la puedes instalar con el siguiente comando:
    #apt-get install libwww-perl

Luego de tener todo instalado colocamos un archivo index.php  en nuestro servidor web, con el siguiente contenido:

<?php echo 0; ?>

También creamos otro archivo llamado peticion.sh con el siguiente contenido:

#!/bin/bash
ESTADO=$(GET http://127.0.0.1/index.php)
if [ "$ESTADO" = 0 ]
then
     echo "es cero"
else
     echo "es uno"
fi

Damos permisos de ejecución a nuestro script:
#chmod +x peticion.sh

Ejecutamos el script :
#./peticion.sh

esto nos devolverá un resultado como si visitáramos la pagina mediante nuestro navegador web, el cual nos daría como resultado el visualizar un "0" en una pagina en blanco, ya que estamos usando la petición "GET" para consultar, y seguido de esto comprobamos si la consulta es igual a cero, nos devolverá como resultado "es cero"  y si no es cero lo que nos muestra la consulta, nos devolverá como resultado "no es cero"

Espero que les sea de utilidad esta librería que tiene muchos más usos que el que le estamos dando en este post, si tienen alguna pregunta me la pueden hacer llegar con confianza ..