Blocos de Diretivas ( While, If ) em Perl

Blocos de Diretivas ( While, If ) em Perl

Um bloco é constituído por diretivas contidas numa diretiva hierarquicamente superior. Um bloco de diretivas pode, por exemplo, estar contido numa diretiva condicional ou numa alça ( loop). Todas as diretivas contidas numa subrotina também se constituem num bloco de diretivas.

Um bloco de diretivas é iniciado através de um chave de abertura { e terminado através de uma chave de fechamento }.

Nas diretivas condicionais (como no exemplo 1) ou nos laços (como no exemplo 2), estes blocos sempre precisam estar contidos entre chaves, mesmo quando o bloco é constituído por apenas uma diretiva.

Um bloco de diretivas também pode conter outros blocos.

# Exemplo 1

if($Numero > 1000)
{
   $Numero = 0;
}

# Exemplo 2

while($i <= 99)
{
   print "O quadrado de ", $i, " é ", $i * $i, "\n";
   $i = $i + 1;
}
Tags: