Grunderna i ActivePerl - Del 4 Introduktion Detta är en del 4 av min serie, Grunderna i ActivePerl. I denna del av serien, ser vi hur en grupp uttalanden kan exekveras baserat på ett villkor. Det liknar vad som händer i ett mänskligt språk. Till exempel kan någon säga, om ett villkor är sant, gör det och det och det. Obs: Om du inte kan se koden, eller om du tror att något saknas (bruten länk, bild frånvarande), bara att kontakta mig på [email protected]. Det vill säga, kontakta mig för minsta problem du har om vad du läser.
If I ActivePerl, finns det ett reserverat ord, som är "om". Den "om" måste vara med gemener. Denna används för att kontrollera om ett villkor är sant. Om det är sant, är en eller flera uttalanden avrättades. Låt oss titta på ett exempel. Tänk på följande kod: använd strikt; print "Content-Type: text /html \\ n \\ n"; min $ hisVar = 20; if ($ hisVar == 20) {print "Jag studerar ActivePerl, som är som Perl.
"; } Jag råd du att alltid börja med uttalandet, "användning strikt;" Om dina resultat är att skickas till webbläsaren som vi gör så ska du ha uttalandet "print" Content-Type: text /html \\ n \\ n ";" upp i din kod innan någon annan utskrifts uttalande. Du har uttalande som tilldelas värdet 20 variabeln $ hisVar. Kom ihåg att vi använder $ hisVar för första gången, så vi måste börja med, min. Då har du "om" uttalande. If-satsen inleds med det reserverade ordet "om" och slutar med klammerparentes,}. Vad går inom parentes är villkoret. De uttalanden som skall exekveras i klammerparenteserna.
If-satsen är inte en vanlig uttalande, så det slutar inte med ett semikolon. Hela if-uttalande (med parenteser och klammerparenteserna) kallas en om-konstruktion. Om villkoret är korrekt, kommer ActivePerl ersätta det med, riktigt, internt; du inte ser det. Om det är fel, kommer ActivePerl ersätta det med, falsk, internt. I ovanstående kod, var 20 tilldelad, $ hisVar. Så, är lika med $ hisVar 20. I det tillstånd likhetstecknet är två tilldelningsoperatorer: en precis bredvid den andra.
If-satsen ovan kan läsas så här: om $ hisVar uppgår till 20 sedan display, "jag studerar ActivePerl, som är som Perl.". Eftersom vi tilldelas värdet 20 till $ hisVar, skick if-satsen är sant. Så uttalandet i klammerparenteserna utförs. Prova ovanstående kod (du måste ge det någon filnamn med förlängnings .pl och spara den i cgi-bin). Du kan ha mer än ett uttalande klammerparenteserna i om-konstruktionen. Om villkoret är sant, kommer alla uttalanden i klammerpa