Sende Web Form datasett som e-post med Activeperl

r er CGI objekt opprettet med navnet, $ query. De neste seks uttalelser lese verdiene av desse som nå er i $ query objekt. Når Submit (Send) -knappen på HTML-skjema er klikket, verdiene av kontrollene gå til CGI objekt ($ query) at du må opprette i Perl-skript. Så snart objektet er opprettet i Perl skript, kan du få verdiene av kontrollene som de neste seks linjene over do. For å få verdien av hver kontroll, trenger du navnet på kontrollen. Du tilordne returverdien til en variabel med det navnet du ønsker. Disse tildeles variabelnavn vil bli brukt når danner Perl epost-kode.

For eksempel $ recipientVal ovenfor vil bli brukt i e-posten kode i stedet for å sende e-post adresse. Kontroll navn, fornavn, etternavn og melding av HTML-skjemaet også skal brukes i e-posten kroppen. Det er hvordan du gjør det. Du må bruke de tildelte variabelnavn og noen av kontrollnavnene i e-posten kode som vil bli vist nedenfor. Den andre hoved Kode Segment Den andre hovedkodesegmentet kan være svært store. Den bruker de tildelte variabler for å avgjøre om verdiene av HTML skjemakontroller ble riktig skrevet.

Det de ikke var riktig skriver, det sender feilmeldinger tilbake til nettleseren og den tredje viktigste koden segment som former og sender e-post er ikke utført. Du bør konsultere andre dokumenter i denne bloggen for å se hvordan du skal skrive den andre hovedkodesegmentet effektivt; Jeg vil vise deg en enkel form for at det i den fjerde delen av denne serien. Den tredje hoved Kode Segment Den tredje hovedkodesegmentet er dannelsen av Perl epost-kode. Den trenger de tildelte variabler og noen av kontrollnavnene.

Dette er en del av den tredje hovedkodesegmentet for ovenstående skjemaet og ment epost (se detaljer i del 4): open (sendmail, "| /usr /lib /sendmail -oi -t") or die "Kan ikke gaffel for ! sendmail: $ \\ n "; skrive ut Sendmail $ emailMessage; nær (sendmail) eller advare "sendmail ikke lukke riktig"; De to setninger for slutten av filen markør har ikke blitt brukt denne gangen. Overskriften delen og e-postmeldingen kroppen er alle nå i en streng, hvis variabelen er $ emailMessage. Etter å ha åpnet filehandle, sender du hele meldingen streng med utskriftsfunksjonen ved hjelp av filehandle.

Så du lukker filehandle; som er prosessen her. Vi skal se hvordan denne komplette meldingen strengen er utformet i den neste del av serien. Så hvis den tredje hovedkodesegmentet ovenfor er utført, vil e-posten sendes til e-boksen til mottakeren. La oss avslutte her og fortsette i n