Mail per Perl kann nicht gesendet werden Mime :: Lite

Question

Ich kann keine Mail mit MIME :: Lite senden. Beim Senden von meinem Desktop werden die folgenden Fehler angezeigt. Fehler: "SMTP konnte keine Verbindung zum Mailserver herstellen: Fehlerhafter Dateideskriptor"

Ich verwende den unten genannten Code.

use strict; 
use MIME::Lite; 
use Net::SMTP; 

my $from_address = "no-reply@host.com"; 
my $to_address = "madhan@host.com"; 
my $cc_address = "madhan@host.com"; 
my $subject = "Test mail"; 
my $message_body = "Madhan test mail"; 
my $namer="madhankumar"; 
my $regards="Madhan M"; 

print " Sending mail from $from_address to $to_address \n"; 
my $person_name=ucfirst($namer).","; 
my $mail_host = 'mail1.somehost.com'; 


my $msg = MIME::Lite->new (
    From => $from_address, 
    To => $to_address, 
    Cc => $cc_address, 
    Subject => $subject, 
    Type =>'multipart/mixed' 
) or die "Error creating multipart container: $!\n"; 

$msg->attach (
    Type => 'TEXT', 
    Data => "Dear $person_name\n\n".$message_body."\n\nRegards,\n$regards" 
) or die "Error adding the text message part: $!\n"; 

MIME::Lite->send('smtp', $mail_host, Timeout=>60); 
    $msg->send; 

Der obige Code funktioniert einwandfrei, während der Mailserver mit LAN verbunden ist. Während Sie den Code in Remote-System hat der Fehler unter

"SMTP Failed to connect to mail server: Bad file descriptor". 

wie erwähnt in geworfen Kann ich kenne den Grund .. Ist der Code läuft in Remote-System. Wenn nicht, was sind die Änderung, die ich den Code gemacht haben .. Bitte teilen Sie Ihre Lösungen ....

Vielen Dank im Voraus ...

Anmerkung: Ich entwickle dies in Windows XP

Answer 1

Die Variablen nicht enthalten, was Sie denken, dass sie enthalten. Hätten Sie Warnungen eingeschaltet, hätten Sie dies selbst bemerkt.

$ perl -e'use warnings; my $from_address = "no-reply@host.com";' 
Possible unintended interpolation of @host in string at -e line 1. 
Name "main::host" used only once: possible typo at -e line 1. 

Die Abhilfe besteht darin, einfache Trennzeichen zu verwenden, um diese Zeichenfolgen zu begrenzen.