use strict; print "Content-Type: text /html \\ n \\ n"; my $ numerador = 8; my $ denominador = 2; if ($ denominador = 0!) {my $ resposta = $ numerador /denominador $; $ resposta de impressão; } Else {print "Divisão por zero não é permitido!"; } O segmento de código em particular aqui é que o bloco-se. Leia e tentar o código acima, se você não tiver feito isso. O código deve ser auto-explicativo. Altere o valor do denominador 2-0 e tente novamente o código. Vamos parar aqui para esta parte da série. Continuamos na próxima parte.
Chrys Para chegar a qualquer uma das partes desta série, basta digitar o título correspondente abaixo na caixa de pesquisa da página e clique em Procurar (menu utilização se disponível): Introdução ao ActivePerl ActivePerl Sintaxe Básica Basics de Variáveis ActivePerl ActivePerl Declarações condicionais booleanas Lógica para Demonstrações ActivePerl a lógica booleana e Condições ActivePerl ActivePerl Comparação e operadores aritméticos ActivePerl laço ActivePerl Arrays ActivePerl Hashes ActivePerl Tipos de variáveis e Contexto ActivePerl Subroutines ActivePerl Introdução loop foreach para ActivePerl variáveis especiais Noções básicas de ActivePerl Escopo de variável Alguns ActivePerl predefinidos Subroutines espaço em branco em ActivePerl Basics de Noções básicas de erro ActivePerl de Referência em Arquivo ActivePerl ActivePerl Acessando Basics no envio de formulário HTML com ActivePerl