• Publicidad

Tarea en background

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

Tarea en background

Notapor rogerp003 » 2010-05-05 10:18 @470

Hola a todos. Soy nuevo en esto de Perl :oops:

Necesito desarrollar un script web que al ejecutarlo redireccione inmediatamente a otra página y treinta segundos más tarde envíe un correo electrónico.

¿Alguien podría ayudarme?

Muchas gracias.
rogerp003
rogerp003
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2010-05-05 09:53 @454

Publicidad

Re: Tarea en background

Notapor explorer » 2010-05-05 13:18 @596

Bienvenido a los foros de Perl en Español, rogerp003.

No creo que sea necesario dejar un proceso en segundo plano... si solo hay que esperar 30 segundos, pues se espera...

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. #use strict;
  3. #use warnings;
  4. #use diagnostics;
  5.  
  6. use MIME::Lite;
  7. use CGI qw/:standard/;
  8. use CGI::Carp qw(fatalsToBrowser);
  9.  
  10. #  Redirigimos
  11. print redirect('http://www.perlenespanol.com/');
  12.  
  13. close STDOUT;  # Cerramos el canal de salida, para indicar que
  14.                # no vamos a enviar más
  15.  
  16. sleep 30;      # ZZzzz... ZZZzzzz...
  17.  
  18. # Correo
  19. my $msg = MIME::Lite->new(
  20.     From    => '[email protected]',
  21.     To      => '[email protected]',
  22.     Cc      => '[email protected]',
  23.     Subject => 'CGI redirecto más correo',
  24.     Data    => "FUNCIONA",
  25. );
  26.  
  27. $msg->send('smtp', '172.26.0.3', AuthUser => 'usuario', AuthPass => 'COnTRaseÑa');
  28.  
  29. __END__
  30.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Tarea en background

Notapor rogerp003 » 2010-05-05 14:07 @630

Gracias, explorer, por la bienvenida y tu ayuda.

Pero creo que no me expliqué bien.

En realidad, lo que necesito es que el usuario, al presionar un botón en el formulario web, inicie un envío de correos, que no es uno, sino varios, a veces cientos, y no quiero que deba esperar en esa página durante todo el envío, sino que sea redirigido a otra.

Espero haber sido más claro.

Gracias.
rogerp003
rogerp003
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2010-05-05 09:53 @454

Re: Tarea en background

Notapor explorer » 2010-05-05 16:38 @735

Mi ejemplo sigue siendo válido...

El usuario, al pulsar el botón, llama al cgi. El cgi le redirige a la nueva página, cierra el STDOUT, y comienza el bucle de envío de todos los correos electrónicos.

El usuario recibe la orden de redirección, su navegador carga la nueva página, mientras que el programa sigue funcionando.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Tarea en background

Notapor rogerp003 » 2010-05-10 09:54 @454

Gracias, explorer, muy clara tu respuesta :D
rogerp003
rogerp003
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2010-05-05 09:53 @454


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 43 invitados