Så snart objektet skapas i Perl-skript, kan du få värdena för de kontroller de kommande sex rader ovanför do. För att få värdet av varje kontroll, behöver du namnet på kontrollen. Du tilldelar det returnerade värdet till en variabel med vilket namn du vill. Dessa tilldelade variabelnamn kommer att användas vid formning Perl e koden. Exempelvis ovan $ recipientVal kommer att användas i e-postkoden i stället för den Till e-postadress. Styr namn, Förnamn, efternamn och Meddelande av HTML-formulär kommer också att användas i e-postmeddelandet. Det är hur du gör det.
Du måste använda de tilldelade variabelnamn och en del av kontrollen namn i e-postkoden som kommer att visas nedan. Andra Huvud kodsegmentet Det andra huvud kodsegmentet kan vara mycket stora. Den använder de tilldelade variabler för att bestämma om värdena för kontrollerna HTML-formuläret var korrekt skrivs. Det de inte var korrekt typ, skickar felmeddelanden tillbaka till webbläsaren och den tredje huvud kodsegment som formulär och skickar e-post utförs inte.
Du bör konsultera andra dokument i den här bloggen för att se hur man skriver den andra huvud kodsegmentet effektivt; Jag kommer att visa dig en enkel form av att den fjärde delen av denna serie. Den tredje huvud kodsegmentet Den tredje huvud kodsegmentet är bildandet av Perl e koden. Det behöver de tilldelade variabler och några av de kontrollnamn.
Detta är en del av den tredje huvud kodsegmentet för formuläret ovan och förmodade e-post (se detaljer i del 4): open (sendmail, "| /usr /lib /sendmail -oi -t") eller dö "Kan inte punga för ! send: $ \\ n "; print Sendmail $ emailMessage; nära (sendmail) eller varna "sendmail inte stänga ordentligt"; De två rapporterna för filslutsmarkören har inte använts här gången. Huvudsektionen och e-postmeddelandet kroppen är alla nu i en sträng, vars rörliga är $ emailMessage.
Efter att ha öppnat filehandle, skicka hela meddelandet sträng med utskriftsfunktionen med