Uso de declaração se em Perl

“Às vezes, requer executar uma ou mais declarações com base em uma condição específica. Este problema pode ser resolvido usando a instrução "se". É uma declaração muito útil para qualquer linguagem de programação. As maneiras de usar diferentes tipos de declarações "se" no script Perl foram mostradas neste tutorial.”

Sintaxe

Diferentes sintaxes de declarações "se" são dadas abaixo.
A. If Declaração

If (condição)
declarações)

A sintaxe acima é usada para executar as declarações se a condição definida na instrução "se" retornar.

B. Declaração if-else

If (condição)
declarações)
outro
declarações)

A sintaxe acima é usada para executar as declarações do bloco "se" se a condição retornar TRUE de outra forma, execute as declarações do bloco "else".

C. Declaração if-else-if

if (condição)
declarações)
else if (condição)
declarações)

caso contrário, se (condição)
declarações)

..
outro
declarações)

A sintaxe acima é usada para executar as declarações do primeiro bloco "se" se a condição retornar TRUE de outra forma, execute as declarações do próximo bloco "else se" se a condição retornar. Se a condição de todo o bloco "se" retornar falsa, as declarações do bloco "else" serão executadas.

Os usos de diferentes tipos de declarações "se" foram mostrados na próxima parte deste tutorial.

Exemplo 1: Uso da instrução “se”

Crie um arquivo PERL com o código a seguir que imprimirá a data e a hora atuais do sistema se o número de entrada retirado do usuário for maior ou igual a 10; Caso contrário, nada será impresso. O horário local() A função foi usada no código para ler a data e hora atuais do sistema.

# Receba uma entrada número do usuário
Imprima "Digite um número:";
$ valor =;
# Verifique se o valor de entrada é maior ou igual a 10 ou não
if ($ valor> = 10)
# Leia a data e a hora atuais
$ dateTime = localTime ();
# Imprima o valor atual da data e do horário
print ("Hoje é $ dateTime \ n");

Saída
A saída a seguir aparecerá após a execução do código acima duas vezes com os valores de entrada 10 e 5.

Exemplo 2: Uso da declaração "if-else"

Crie um arquivo PERL com o seguinte código que compara dois valores numéricos retirados do usuário e imprime uma mensagem com base nos valores. A função chomp () foi usada para remover as novas linhas dos valores de entrada. A função int () foi usada para converter o valor de entrada no número antes de comparar os valores. A declaração "if-else" foi usada aqui para verificar se os números de entrada são iguais ou não.

# Pegue as entradas do número do usuário
Imprima "Digite o primeiro número:";
$ valor1 =;
Imprima "Digite o segundo número:";
$ valor2 =;
# Remova a nova linha de cada entrada
chomp ($ valor1);
chomp ($ valor2);
# Verifique os valores de entrada são iguais ou não
if (int ($ valor1) == int ($ value2))
imprimir "$ valor1 e $ valor2 são iguais.\ n ";

outro

imprimir "$ valor1 e $ valor2 não são iguais.\ n ";

Saída
A saída a seguir aparecerá após a execução do código acima com os valores 7 e 5.

A saída a seguir aparecerá após a execução do código acima com os valores 4 e 4.

Exemplo 3: Uso da declaração "if-elsif-else"

Crie um arquivo PERL com o seguinte código que verificará se dois valores numéricos retirados do usuário são iguais ou o primeiro número é maior que o segundo número, ou o primeiro número é menor que o segundo número. A função chomp () foi usada para remover as novas linhas dos valores de entrada. A função int () foi usada para converter o valor de entrada no número antes de comparar os valores. A declaração "if-elsif-else" foi usada aqui para executar a tarefa mencionada acima e imprimir a mensagem apropriada,

# Pegue o número de entradas do usuário
Imprima "Digite o primeiro número:";
$ valor1 =;
Imprima "Digite o segundo número:";
$ valor2 =;
# Remova a nova linha de cada entrada
chomp ($ valor1);
chomp ($ valor2);
# Verifique os valores de entrada são iguais ou não
if (int ($ valor1) == int ($ value2))
imprimir "$ valor1 e $ valor2 são iguais.\ n ";

# Verifique o primeiro valor é menor que o segundo valor
elsif (int ($ valor1) < int($value2))

impressão "$ valor1 é menor que $ valor2.\ n ";

outro

impressão "$ valor1 é maior que $ valor2.\ n ";

Saída
A saída a seguir aparecerá após a execução do código acima com os valores 5 e 5.

A saída a seguir aparecerá após a execução do código acima com os valores 9 e 5.

A saída a seguir aparecerá após a execução do código acima com os valores 3 e 6.

Exemplo-4: Uso da declaração "se" aninhada

Crie um arquivo Perl com o seguinte código que usa condições de “se” aninhadas para imprimir uma mensagem com base no valor de entrada retirado do usuário. De acordo com o código, se a marca MCQ retirada do usuário for maior ou igual a 70, as marcas descritivas serão retiradas do usuário e a segunda condição "se" será verificada. Se a marca descritiva for maior ou igual a 50, então “Você passou no exame.“Qualquer outra mensagem será impressa se alguma das condições“ se ”retornar.

# Pegue as marcas MCQ do usuário
Imprima "Entre nas marcas MCQ:";
$ mcq = ;
# Verifique a primeira condição
if ($ mcq> = 70)
# Pegue as marcas descritivas do usuário
imprima "Digite as marcas descritivas:";
$ descritivo = ;
# Verifique a segunda condição
if ($ descritivo> = 50)
# Imprimir mensagem quando as duas condições “se” retornarem verdadeiras
Imprima "Você passou no exame.\ n ";

outro

# Mensagem de impressão se a segunda condição "se" retornar
Imprima "Você falhou no exame.\ n ";

outro
# Mensagem de impressão se a primeira condição "se" retornar falsa
Imprima "Você falhou no exame.\ n ";

Saída
A saída a seguir aparecerá após a execução do código acima com os valores 75 e 46.

A saída a seguir aparecerá após a execução do código acima com os valores 77 e 58.

A saída a seguir aparecerá após a execução do código acima com o valor 65.

Conclusão

A maneira de usar simples "se", "if-else", "if-elsif-else" e aninhado "se" as declarações foram mostradas neste tutorial usando vários exemplos.