[Perl] Como ejecutar una web y pasarlo a una variable.

[earanda@traker.com.ar]

Proba con los siguientes m=F3dulos:

HTTP::Request::Common;
LWP::UserAgent;

Seguramente te van a ser =FAtiles


=B4=AF`=B7.=B8=B8.=B7=B4Yoea13=B7=B4=AF`=B7.=B8=B8.=B7=B4


----- Original Message -----
From: "Ing. Ricardo Cumberbatch L. (PANNet - URC)" <rcumber@utp.ac.pa>
To: "Lista de perl" <perl@tlali.iztacala.unam.mx>
Sent: Wednesday, February 26, 2003 2:17 PM
Subject: [Perl] Como ejecutar una web y pasarlo a una variable.



Hola lista,

Saben como hacer para q un url de un servidor A sea ejecutado en un server
B guarde la informacion en una variables y luego la despliegue para ser
mostrador a Server C. La idea es q Server C no se entere que la
informacion q le dio Server B vino directamente de Server A

ya q se q en PHP esto se puede hacer mendiante esto:

function verificar=5Furl($url)
{
        //abrimos el archivo en lectura
        $id=3D@fopen($url,"r");
        //hacemos las comprobaciones
        if ($id) $abierto=3D1;
        else $abierto=3D0;
        //devolvemos el valor
        return $abierto;
        //cerramos el archivo
        fclose($id);
}



$url=3D "http://www.skytel.com.co";


$Resultado=3D verificar=5Furl($url);

echo " Resultado $Resultado ";
if ($Resultado =3D=3D 1)
  {
   echo " DIRECCION EXISTENTE ";
   // Aqui puede ingresar la rutina para traer la informacion del sitio
web
  }
 else
  {
   echo " DIRECCION  NO   EXISTENTE o FUERA DE LINEA ";


  }
 la primera es la funciC, y la otra parte es  el uso de @ delante de fopen
es para que en caso de
error no se muestre en la pantalla

Gracias por la ayuda

=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=
=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F
Perl mailing list
Perl@tlali.iztacala.unam.mx
http://tlali.iztacala.unam.mx/mailman/listinfo/perl