Comment envoyer un mail à partir d'un Perl / CGI?

Dans les systèmes Unix et Linux, vous pouvez utiliser le sendmail logiciels pour envoyer des e-mails. Nous pouvons donc enrichir notre application / Perl CGI avec la possibilité d'envoyer des emails avec une simple liste dans le code:

 Code # ...

 





 ouvert (MAIL, "| / usr / lib / sendmail-t");

 





 print MAIL "À: $ destinataire \ n";

 





 print MAIL "From: $ sender \ n";

 





 print MAIL "Subject: $ sujet \ n";

 





 print MAIL "corps du message .... \ n";

 





 print MAIL "Message ... \ n";

 





 proches (mail);

 





 Code # ...