Apertura de paginas WEB desde Perl

Mon, 1 Dec 1997 15:29:34 -0600 (CST)

	Hola!

	Mira, una opcion es con IPC (comuicacion entre procesos) 
utilizando sockets, aqui esta un ejemplo sencillo :

#!/opt/leng/perl5.004/bin/perl

         use IO::Socket;
         unless (@ARGV > 1) { die "Uso: $0 host documento ..." }
         $host = shift(@ARGV);
         foreach $document ( @ARGV ) {
             $remote = IO::Socket::INET->new( Proto     => "tcp",
                                              PeerAddr  => $host,
                                              PeerPort  => 80
                                             );
             unless ($remote) { die "No me puedo conectar al servidor http en el host $host" }
             $remote->autoflush(1);
             print $remote "GET $document HTTP/1.0\n\n";
             while ( <$remote> ) { print }
             close $remote;
         }

Y ya!!!!! y si lo corres :

/home/login>cliente_web.pl dominio.com /pagina.htm

HTTP/1.0 200 Document follows
Date: Mon, 01 Dec 1997 21:19:48 GMT
Server: NCSA/1.5.2
Last-modified: Tue, 08 Apr 1997 18:23:54 GMT
Content-type: text/html
Content-length: 438

<HTML><HEAD><TITLE>The Zone: Mortal Kombat 2</TITLE></HEAD>
<BODY>

<form method="POST" action="http://dir.maquina">
<input type=text name=hola1 value=val1>
<input type=text name=hola2 value=val2>
<input type=text name=hola3 value=val3>
<input type=text name=hola4 value=val4>
<input type=reset name=hola6 >
<input type=submit name=hola7>

</body>
</html>

Y ya de aqui puedes utilizar expresiones regulares para depurar lo que te 
llega. Espero esto te sirva! y Saludos!
______________________________________________________________________________
                _         _
           __ ... . -^-- ,- -- - - -^ ,._   .
  _. - ~`v                          ( `,  `,=')---.-.
'          Edith Valencia Martinez  `\'   ;."~-._` )`)
           edithv@servidor.unam.mx        {      )'~-,
              UNAM - DGSCA                `-  /'( >~
                                             `(_.-'                 

	>> Todos los triunfos nacen cuando nos atrevemos a comenzar <<
______________________________________________________________________________

On Mon, 1 Dec 1997, Jorge R.Colaccini wrote:

> Hola Listeros,
> 
> Existe en Perl la posibilidad de 'leer' una pagina web?
> 
> Necesito saber si es posible desde un programa Perl, leer una pagina web
> cualquiera que no esta en el propio servidor sino que se encuentra por
> ejemplo en una direccion http://dominio.com/pagina.htm?
> 
> yo he intentado hacer un open ( open(CNF,"<http://dominio.com/pagina.htm")
> ) pero solo me devuelve error?
> 
> Gracias por vuestra ayuda?
> 
> Un abrazo.
> 
> ----------------------------------------
> Jorge R. Colaccini
> E-mail: gralpaz@satlink.com
> Rosario, Santa Fe, Argentina
> ----------------------------------------
> 
> 
> 
> 