Svaret kommer inte att gå till din webbserver även om din e-post Perl-skript är i din webbserver. För att informationen att gå till mottagarens e-rutan, har sin e-postadress också vara i webbformuläret. Detta är oftast svårt kodad i dolt input type kontroll i webbformuläret. Formuläret för ovanstående e-post är som följer: Form Rubrik här
* Förnamn: Efternamn: * E-post: Ämne: * Meddelande: Skicka Värdet av åtgärden attributet aperlscript.pl.
Detta är namnet på Perl filen skript som kommer att få dina data som från användarens webbläsare, konvertera den till ett e-postmeddelande och skicka e-post till e-postservern. Du kan ge vilket namn du vill ha på filen, men avsluta den med förlängningen .pl. För en datauppsättning, är namnet på en formulärkontroll och dess värde skickas när skicka-knappen klickas. Så, se till att var och en av de viktiga kontroller av formuläret har ett namn. En kontroll namn, till exempel "Förnamn" kan vara viktig text i kroppen av e-postmeddelandet.
Observera att endast användaren skriver hans förnamn och han inte skriver strängen "förnamn". Denna sträng är namnet på en kontroll och bör vara viktig text i kroppen av meddelandet. Just, kommer kroppen av meddelandet har, förnamn: John Här är strängen "Förnamn" kommer från namnet på en formulärkontroll, medan "John" är värdet skrivs i kontrollfält. Form Kontroll kod i form koden, har e-postadress e-rutan för den person som kommer att få e-post den dolda styringång. Dolda ingångs kontroller inte visas när webbformuläret visas. Du har tre inmatningskontroller i form koden.
Till skillnad från den dolda kontroll, kommer dessa kontroller text fyllas av Internet-användaren vid hans klient webbläsare. Han måste fylla hans förnamn, måste han fylla hans efternamn och han måste fylla sin e-postadress för att få ett svar. Namnet på den första textinmatningskontroll är "förnamn"; namnet på den andra textinmatningskontroll är "efternamn"; och namnet på den sista inmatningstextkontroll är "Skicka". Användaren kommer att skriva sin e-postadress i fältet E-inmatningstextkontroll, utan fästvinklarna och utan omvänt snedstreck framför @.
I textrutan styr användaren kommer att skriva sitt budskap (personligt meddelande). Vad han skriver här kommer inte att omfatta hans förnamn, efternamn eller e-postadress. När omvandla datauppsättning i ett e-postmeddelande, kommer vår Perl-skript i vår webbserver sätta användarens e-postadress i huvudsektionen av e-postmeddelandet. E-postmeddelandet består av e-posthuvudsektionen och e kroppen. Formen budskapet är bara vad du skriver i textområdet kontroll. När formuläret visas, ser det ut som om förnamn, efternamn och e-post kommer att gå in i e-postrubriken sektionen.
E-postmeddelandet kommer att gå in i e-posthuvudsektionen men de första och efternamn kommer att gå till kroppen delen av e-post. Namn (användarnamn) är inte en del av e-huvudsektionen. Blanda inte ihop mellan formen (användarens) meddelande, e-postmeddelandet och e-postmeddelandet kroppen. Formen budskap är vad användaren skriver i textområdet styrfältet i formuläret. E-postmeddelandet består av huvudsektionen och kropp del av e-post. E-postmeddelandet har avsändarens referenser och sändarens personliga (Text Area) meddelande.
Den ActivePerl Script Det finns tre huvudsakliga kod segment av Perl-skript. Den första erhåller värdena för kontrollerna i datamängden skickas när användaren klickat på skicka-knappen. Kom ihåg att Perl-skript är den server som tar emot informationen i formuläret. Den andra huvud kodsegmentet validerar värdena emot för att se om de var väl typ; om inte, är felmeddelande skickas tillbaka till användaren för att behöva skriva och e-postmeddelandet skickas inte till e-postservern.
Om det inte finns något skrivfel, förbereder den tredje huvudsegmentet och skickar e-post; annars den tredje huvudsegmentet inte skicka e-post. Första Huvud kodsegmentet Detta är den första huvud kodsegmentet för Perl-skript för ovanstående e-post: använd strikt; print "Content-Type: text /html \\ n \\ n"; #obtain värden från webbformulär använder CGI; min $ query = new CGI; min $ recipientVal = $ query-> param ('Mottagarens); min $ fnameVal = $ query-> param ('Förnamn'); min $ lnameVal = $ query-> param ('Efternamn'); min $ emailVal = $ query-> param ("E"); min $ sbjVal = $ query-> param (Ärende '); min $ msgVal = $ query->