For de oplysninger at gå til modtagerens e-mail boks, hans e-mailadresse skal også være i webformularen. Dette er normalt hårdt kodet i skjulte input type kontrol i webformularen. Formularen til ovenstående e-mail er som følger: Form Overskrift her
* Fornavn: Efternavn: * E-mail: Emne: * Besked: Send Værdien af handlingen attribut er aperlscript.pl. Dette er navnet på Perl-fil script, der vil modtage dine datasæt fra brugerens browser, konvertere den til en e-mail og sende e-mail til e-mail-serveren. Du kan give hvad navn du ønsker for filen, men ender det med forlængelsen, .pl.
For et datasæt, der er navnet på en form kontrol og dens værdi sendes, når send-knappen bliver klikket. Så sørg for hver af de vigtige kontrol af din formular har et navn. En kontrol navn, såsom "Fornavn" kan være vigtig tekst i selve e-mailen. Bemærk, at kun brugeren skriver hans fornavn og han ikke skrive streng, "Fornavn". Denne streng er navnet på en kontrol og bør være vigtige tekst i selve meddelelsen. Netop, vil kroppen af beskeden have, fornavn: John Her strengen "Fornavn", der kommer fra navnet på en formular kontrol, mens "John" er den værdi skrevet i kontrol felt.
Form Kontrol kode I form koden, den skjulte input kontrol har e-mail-adressen på den e-mail-kasse med den person, der modtager e-mailen. Vises ikke skjulte input kontrol, når webformularen vises. Du har tre input tekst kontrol i form kode. I modsætning til med det skjulte kontrol, vil disse tekst kontroller udfyldes af internetbrugeren ved hans klient browser. Han har til at fylde hans fornavn, han har til at fylde hans efternavn, og han har til at fylde sin e-mail-adresse for at få et svar.
Navnet på den første indgang tekst kontrol er, "Fornavn"; navnet på den anden indgang tekst kontrol er "Efternavn"; og navnet på den sidste tekstinput kontrol er "e-mail". Brugeren vil skrive sin e-mail-adresse i e-mail-tekstinput kontrol, uden vinkelbeslag og uden nogen tilbage skråstreg foran @. I tekstområdet styre brugeren vil skrive hans budskab (personlig meddelelse). Hvad han typer her vil ikke indeholde hans fornavn, efternavn eller e-mail-adresse.
Ved konvertering af data, sat i en e-mail, vil vores Perl script i vores webserver sætte brugerens e-mail-adresse i header afsnit af e-mailen. Den e-mail-meddelelse består af e-mailen header sektionen og e-mail-krop. Blanketten budskab er kun, hvad du skriver i tekstområdet kontrol. Når formularen vises, ser det ud som om, det første navn, efternavn og e-mail vil gå ind i e-mail-header sektionen. Den e-mail vil gå ind i e-mail header sektionen, men den første og sidste navne vil gå til kroppen del af e-mail. Navne (brugernavne) er ikke en del af e-mail-header sektionen.
Du må ikke forveksle mellem formen (brugerens) besked, e-mailen, og e-mailen kroppen. Formularen budskab er, hvad brugeren typer i området af formularen Text Area kontrol. Den e-mail-meddelelse består af header sektionen og krop sektion af e-mail. Den e-mail krop har afsenderens legitimationsoplysninger og afsenderens personlige (Text Area) besked. Den ActivePerl Script Der er tre kode segmenter af Perl-script. Den første opnår værdierne af kontrollerne i datasættet sendes, når brugeren har klikket på send-knappen. Husk, Perl script er i den server, der modtager oplysninger formularen.
Den anden vigtigste kodesegmentet validerer de værdier modtagne at se om de var godt skrive; hvis ikke, er fejlmeddelelsen sendes tilbage til brugeren for genindtastning og e-mail er ikke sendt til den email-server. Hvis der ikke er skrivefejl, forbereder den tredje vigtigste segment og sender e-mail; ellers den tredje vigtigste segment sender ikke e-mailen.
Den første Main Code Segment Dette er den første vigtigste kode segment for Perl-script for ovenstående email: Brug streng; print "Content-Type: text /html \\ n \\ n"; #obtain værdier fra webformular brug CGI; min $ query = nye CGI; min $ recipientVal = $ query-> param ("Modtager"); min $ fnameVal = $ query-> param ("Fornavn"); min $ lnameVal = $ query-> param ("efternavn"); min $ emailVal = $ query-> param ('E-mail'); min $ sbjVal = $ query-> param ('Emne'); min $ msgVal = $ query->