Using perl Syntax Highlighting
#!/usr/bin/perl
#~.
# al menos no da ningun error
use Mail::Mailer;
eval {
$m = Mail::Mailer->new("sendmail");
$m->open( { From => 'micorreo',
To => 'micorreo',
Subject => 'Como enviar e-mail desde Perl'
} );
print $m <<CUERPO
CPAN es tu amigo.
Perl es superior porque todo está en CPAN.
Resistirse es inútil.
CUERPO
;
$m->close;
};
if ($@) {
print "Error: $@\n";
}
else {
print "Mensaje enviado.\n";
}
#~.
# al menos no da ningun error
use Mail::Mailer;
eval {
$m = Mail::Mailer->new("sendmail");
$m->open( { From => 'micorreo',
To => 'micorreo',
Subject => 'Como enviar e-mail desde Perl'
} );
print $m <<CUERPO
CPAN es tu amigo.
Perl es superior porque todo está en CPAN.
Resistirse es inútil.
CUERPO
;
$m->close;
};
if ($@) {
print "Error: $@\n";
}
else {
print "Mensaje enviado.\n";
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
cuando lo envío, no me llega ningún correo.
Si hago un mail en solaris 9, veo que
- Código: Seleccionar todo
550 5.1.2 <micorreo>... Host unknown (Name server: mailhost: host not found)
--k16A1Afv000463.1139220070/na-msdevega.
Content-Type: message/delivery-status
Reporting-MTA: dns; na-msdevega.
Received-From-MTA: DNS; localhost
Arrival-Date: Mon, 6 Feb 2006 11:01:10 +0100 (CET)
Final-Recipient: RFC822; micorreo
Action: failed
Status: 5.1.2
Remote-MTA: DNS; mailhost
Last-Attempt-Date: Mon, 6 Feb 2006 11:01:10 +0100 (CET)
--k16A1Afv000463.1139220070/na-msdevega.
Content-Type: message/rfc822
Content-Transfer-Encoding: 8bit
Return-Path: <root@na-msdevega>
Received: from na-msdevega. (localhost [127.0.0.1])
by na-msdevega. (8.12.10+Sun/8.12.10) with ESMTP id k16A1Afv000461
for <micorreo>; Mon, 6 Feb 2006 11:01:10 +0100 (CET)
Received: (from root@localhost)
by na-msdevega. (8.12.10+Sun/8.12.10/Submit) id k16A1AlG000460;
Mon, 6 Feb 2006 11:01:10 +0100 (CET)
Date: Mon, 6 Feb 2006 11:01:10 +0100 (CET)
Message-Id: <200602061001.k16A1AlG000460@na-msdevega.>
Subject: Como enviar e-mail desde Perl
To: micorreo
From: mi correo
CPAN es tu amigo.
el valor de i es 0.
Perl es superior porque todo está en CPAN.
Resistirse es inútil.
--k16A1Afv000463.1139220070/na-msdevega.--
¿¿ por que puede ser esto ?? ¿¿ No habrá instalado un servidor de correo ??
Supongo que Solaris utiliza el sendmail por defecto.
Aunque creo que esta activado.
