Apertura de paginas WEB desde Perl
Jose Ignacio
jigonzalez@readysoft.es
Wed, 10 Dec 1997 18:23:10 +0100
Hola, intento utilizar esto de abajo y no me funciona. Hay que tener
alguna libreria especial o instalar algo.
Gracias
Jose Ignacio
VALENCIA MARTINEZ EDITH escribió:
>
> 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
> > ----------------------------------------
> >
> >
> >
> >
--
Jose Ignacio - jigonzalez@readysoft.es
Buscador JOPINET - http://www.jopinet.com
JopiBanner - Intercambio de banners - http://www.jopinet.com/jopibanner
Directorio Jose's WEB - http://www.jopinet.com