• Publicidad

Exceso de tiempo en SUBMIT de formulario HTML a CGI

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Exceso de tiempo en SUBMIT de formulario HTML a CGI

Notapor seafree » 2020-02-25 13:17 @595

Buenas tardes. Al enviar varios archivos utilizando ENCTYPE="multipart/form-data", esto es con el archivo HTML:
Sintáxis: [ Descargar ] [ Ocultar ]
Using html4strict Syntax Highlighting
  1. <form ENCTYPE="multipart/form-data" method="post" action="../../cgi-bin/sistema/upload.cgi">
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Tarda demasiado, incluso si únicamente envío los archivos y los recibo en el CGI sin hacer nada con ellos:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.       #!/usr/bin/perl -w    
  2.       #!/usr/bin/perl -T    
  3.      use strict;
  4.      use CGI;
  5.      use CGI::Carp qw ( fatalsToBrowser );
  6.      use File::Copy;   ###---Utilizado para usar copy
  7.      my $cgi = new CGI;
  8.      my @archivos = $cgi->param("archivos");
  9.      my @nombre_archivos = ("NI","RP","RDZ","CRF");
  10.     print $cgi->header ( );
  11.     my $ind=0;
  12.     foreach (@archivos) {
  13.         print "NOMBRE DEL ARCHIVO: $_ - $nombre_archivos[$ind]<BR>";
  14.          $ind++;
  15.     } #--->foreach (@archivos)
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Verifiqué el error_log y no tiene nada al respecto. Agradeceré su ayuda por favor.

Gracias.
seafree
Perlero nuevo
Perlero nuevo
 
Mensajes: 296
Registrado: 2012-08-10 11:26 @518

Publicidad

Re: Exceso de tiempo en SUBMIT de formulario HTML a CGI

Notapor explorer » 2020-02-25 17:07 @754

Yo, en principio, tampoco veo problemas.

Algo que puedes hacer es colocar warn "mensaje"; en medio del código, para que quede reflejado en el error.log. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. warn "inicio de cgi";
  2. ...
  3. warn "inicio del bucle";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Es posible que necesites poner "\n", como si fuese un print(), pero primero haz la prueba sin él.

Con estos mensajes, sabrás dónde está perdiendo el tiempo. O atascado.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14476
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado