Le courrier d'impression Perl CGI n'imprime pas la boucle foreach

Question

J'ai le morceau de code suivant dans un grand expéditeur Perl CGI.

 print MAIL do{foreach my $m (@more){ print"URL: $m\n";}}; 

Le réseau de son tirant est @more = qw (google.com bob.com frank.com);

Lorsque j'exécute le script sendmail cgi et que je reçois le courrier électronique. Cette ligne est omise! ce qui donne? pourquoi n'ai-je pas de résultats? Comment puis-je le réparer?

Merci à l'avance

Answer 1

Vous avez:

print MAIL do { expression } 

... où l'expression ne renvoie pas quelque chose d'utile pour do d'imprimer sur la poignée de fichier courrier.

---

Vous avez aussi:

foreach my $m (@more){ 
    print "URL: $m\n"; 
} 

... où vous n'êtes pas imprimer à la poignée de fichier courrier.

---

se débarrasser des do parce qu'il est un non-sens. Imprimez l'URL à l'endroit où vous voulez l'imprimer.

foreach my $m (@more){ 
    print MAIL "URL: $m\n"; 
} 

---

Pensez également à utiliser un sensible module for sending email (probablement Email::Sender::Simple au lieu de (probablement) des choses de la tuyauterie dans le sendmail directement sur votre système

Answer 2

Votre ligne.

print"URL: $m\n" 

est l'impression l'URL à STDOUT, pas au handle de fichier MAIL et l'incorporation de cette ligne dans un foreach dans un do ne va pas changer cela du tout. Tout ce qui est imprimé dans le handle de fichier MAIL est la valeur de retour de la boucle foreach. Et cela (comme vous l'avez vu) ne retourne rien.

Je pense que vous voulez remplacer tout ce code avec:

print MAIL "URL: $_\n" for @more; 

Ou

print MAIL map { "URL: $_\n" } @more;