Perl-system como cgi....

[Ing. Edgar Valencia Figueroa]

On Fri, 14 Nov 1997, Salvador Fernandez Barquin wrote:

> Hola lista, pues un problemita en un script en perl en mi
> linux necesito que la salida de system salga en la salida 
> estandar para que se convierta en una página dinámica...
> 
> Al estilo
> ------------------------------------------------------
> #!/usr/bin/perl
> 
> use CGI ':standard';
> 
> print header;
> print start_html;
> 
> $nombre=param('nombre');
> $edad=param('edad');
> $cal=param('cal');
> 
> print $nombre, $edad, $cal;
> 
> system ('/bin/cat /etc/passwd'); >>> ***
> *** aqui falla no sale nada en el navegador pero si
>     en la linea de comandos.
> 
> print end_html; 
> --------------------------------------------------------

  Es sencillo, crea un handler del estilo:

  open(Handler, "/mi/programa/a/ejecutar |");
  while(Handler)
  {
     $salida = $_;
  }
    Recuerda que $_ es la variable que PERL utiliza para capturar dicha 
informacion.

  Puedes utilizar muy bien el CGI.pl. Sin embargo te digo una cosa a 
considerar: Si este script va a ser accesado por muchas gentes, e puede 
resultar lento en su ejecucion. Simple trade-off, no crees?

  SAludos a todos!

______________________________________________________
El Mercado Mexicano en el Mundo - M3W3
Ing. Edgar Valencia F.	edgar@telesur.acnet.net
http://www.m3w3.com.mx	M3W3 - Organizando el Web
Tels: 379-8584, 379-5084. FAX: 370-1160
Sistemas, capacitacion, consultoria, paginas.
______________________________________________________