Envoi Web Form Data Set comme Email Avec Activeperl

de. Il utilise les variables affectées à déterminer si les valeurs des contrôles de formulaires HTML ont été correctement tapés. Ce qu'ils ont été tapez pas correctement, il envoie des messages d'erreur au navigateur et le troisième segment de code principal que les formes et envoie l'e-mail ne sont pas exécutés. Vous devriez consulter d'autres documents dans ce blog pour voir comment écrire le deuxième segment de code principal de manière efficace; Je vais vous montrer une forme simple de ce que dans la quatrième partie de cette série.

Le troisième segment de code principal Le troisième segment de code principal est la formation du code Perl email. Il a besoin des variables affectées et quelques-uns des noms de contrôle. Cela fait partie de la troisième segment de code principal pour le formulaire ci-dessus et votre email supposée (voir détails dans la partie 4): ouverte (Sendmail, "| /usr /lib /sendmail -t -oi") ou mourir "Vous ne pouvez pas débourser pour ! sendmail: $ \\ n "; imprimer SENDMAIL $ EmailMessage; Fermer (SENDMAIL) ou avertir "sendmail ne fermait pas bien"; Les deux déclarations pour le marqueur de fin de fichier n'a pas été utilisée cette fois.

La section de tête et le corps du message sont tous maintenant dans une corde, dont la variable est $ EmailMessage. Après l'ouverture du descripteur de fichier, vous envoyez la chaîne de message avec la fonction d'impression en utilisant le descripteur de fichier. Ensuite, vous fermez le descripteur de fichier; qui est le processus ici. Nous verrons comment cette chaîne de message complet est formé dans la prochaine partie de la série. Donc, si le troisième segment de code principal ci-dessus est exécutée, l'e-mail sera envoyé à la boîte de courriel du destinataire.

Terminons ici et continuons dans la prochaine partie de la série. Chrys pour arriver à l'une des parties de cette série, il suffit de taper le titre correspondant ci-dessous et mon nom, Chrys, dans le champ de recherche de cette page puis cliquez sur Rechercher (utilisation menu si disponibles): Email Structure et ActivePerl envoi de formulaire Web Data Set comme Email avec ActivePerl Date et Emballage Email-Line pour Perl Simple Email validation et rétroaction avec Perl