Foro - Perl en Español

por **primitivo** » 2013-03-23 21:58 @957

Buenas, Yo molestando de nuevo ;)

Resulta que estoy usando correos electrónicos con Perl, pero no me funciona si no le agrego la '\' antes de la '@' :(

Por ejemplo, se supone que el correo es [email protected]. El código me lo envía, siempre y cuando lo escriba así:

pepito\@mismtp.com

El punto es que no hallo cómo incluirle la '\' al correo justo antes de la '@'. A continuación ilustro un poco más el código para mejor comprensión.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $to = "[email protected]"; #Correo de ejemplo, sin '\' la cual debo incluir y dejar el correo como pepito\@perez.com
my $Senddir = "usr/sbin/sendmail"; #Ruta de sendmail; en UNIX (Trabajo bajo una VPS ;))
              open(MAIL,"|$Senddir $to") or print $socket "$se P $us :ERROR Interno, Por favor intente más tarde.\n";
              print MAIL "From: primitivo\@micorreo.org\n"; #acá si lo puedo agregar directamente...
              print MAIL "Subject: EMaiL\n";
              print MAIL "\n";
              print MAIL "\n";
              print MAIL "EMaiL - Gestión de correos masivos de la RED";
              print MAIL "*** (Mensaje automático) ***\n";
              print MAIL "\n";
              print MAIL "--------------------------------\n";
              print MAIL "$body\n"; #Este es el cuerpo del mensaje, que ya he guardado para enviar.
              print MAIL "--------------------------------\n";
              print MAIL "\n";
              print MAIL "Mensaje automático, para reportar abuso ó spamming, Por favor contáctenos a través de nuestro portal web http://www.miweb.org\n";
              close(MAIL);
              print $socket "$se P $us :Mensaje enviado éxitosamente.\n";
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

#!usr/bin/perl
$to = '[email protected]'; #Corrijo por comillas " '' " 
$too = $to; #Reasigno las variable $to -> $too por si acaso xD.
$ruta = "/usr/sbin/sendmail"; #El patch en UNIX
@correo_tmp = split("\@",$too); #Divido la cadena que guardé en $too, y la asigno a un array.
print "-> $correo_tmp[0] :: $correo_tmp[1]\n"; #Imprimo valores para asegurarme de lo que estoy guardando.
$car = "/\\/@"; #Declaro un 'scalar' Para agregar objeto '\'
$ca = $car . $correo_tmp[1]; #Concateno :D
$ca =~ s/\///g; #Elimino los objetos '/' las veces que se encuentre 'g' que no me interesa tener
$smtp = $correo_tmp[0] . $ca; #Declaro 'scalar' final y concateno 
print "$smtp\n"; #Y ¡Tengo la cadena! :D
open(CORREO,"|$ruta $smtp") || print "ERROR\n";
print CORREO "From: pepito\@perez.com\n";
print CORREO "Subject: Correo automático.\n";
print CORREO "\n";
print CORREO "$body\n";
close(CORREO);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-03-24 12:07 @546

Pero... si no necesitas hacer NADA de eso...

Una vez que has metido la dirección de correo en una variable, con las comillas simples, no necesitas poner ningún '\'...

por **primitivo** » 2013-03-25 12:44 @572

Lo sé, pero ¿cómo hago yo, ya que sin la '\' no me envía el correo? :S

por **explorer** » 2013-03-25 12:50 @576

¿Esto no te funciona?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
$ruta = "/usr/sbin/sendmail";
$to = '[email protected]';
 
open (CORREO, "|$ruta $to") or die "ERROR: $!\n";
print CORREO "From: pepito\@perez.com\n";
print CORREO "Subject: Correo automático.\n";
print CORREO "\n";
print CORREO "$body\n";
close(CORREO);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **primitivo** » 2013-03-25 13:02 @585

No, maestro, Yo me asombré cuando no me lo envió.

por **explorer** » 2013-03-25 15:32 @689

Pues no lo entiendo, porque a mi sí que me funciona.

No tengo sendmail, pero sí el comando mail:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use feature 'say';
use autodie;
 
$ruta = "/usr/bin/mail";
$from = '[email protected]';
$to   = '[email protected]';
$body = 'Esto es una prueba';
 
open my $CORREO, qq(|$ruta -s "Correo automatico" -a "From: $from" $to); 
say     $CORREO $body;
close   $CORREO;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quizás se nos pasa algún detalle que no nos has contado.

Foro - Perl en Español

Inserción de carácter '\'

Inserción de carácter '\'

Publicidad

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

Re: Inserción de carácter '\'

¿Quién está conectado?