![](https://images.ecency.com/DQmdvN3dq1T8wiEzhED1XgopcYijMuxejhJb3XkE5NMva1T/inserir_um_ttulo.png) [Read too on Odysee](https://odysee.com/@lingy:7/Perl-using-conditionals-second-part:a)

[Read the first part](https://steemit.com/hive-192037/@arthursiq5/en-or-pt-perl-using-conditionals-first-part-or-perl-usando-condicionais-parte-1) Ok, you must be thinking now “OK, but why did this tutorial have a part 2?”, and I answer you: Perl has more conditional structures than just `if` and `else`. One such structure is `unless`. See for example the unless command. The `unless` statement is a conditional structure similar to the `if` statement, but with inverted logic. It is used to test a condition, and if it is false, the code inside the `unless` block will be executed. For example: ```perl unless (0) { print "Entered inside the unless\n"; } ``` Remembering that the number zero is interpreted by many languages, including Perl, as false, and the number one as true. In this case, as the conditional has a false value, the code inside the block will be executed. Let's do a simple example: transform the example from the previous tutorial into an example of using `unless`. Let's start by recalling the [given example](https://steemit.com/hive-192037/@arthursiq5/en-or-pt-perl-using-conditionals-first-part-or-perl-usando-condicionais-parte-1), which is code for a program to see if a person can buy cigarettes or alcohol based on their age: ```perl print "Enter your age:\n"; chomp($idade = ); if ($idade >= 18) { print "Purchase authorized\n"; } else { print "Purchase not authorized\n"; } ``` Now let's change the order using the `unless` conditional: ```perl print "Enter your age:\n"; chomp($idade = ); unless ($idade < 18) { print "Purchase not authorized\n"; } else { print "Purchase authorized\n"; } ``` As you can see, the order of the factors has changed without necessarily changing the functionality of the code. That's basically how `unless` works, and although it's not a clause you'll often find in code, it's good to know more about this conditional structure. Wassup did you like it? Tell me more in the comments 😄😊 ## Addendum User [@gwajnberg](https://ecency.com/@gwajnberg) from Hive said something very important in the last tutorial which was the use of `use strict;` and `use warnings;` in his codes. I've omitted these elements throughout the examples, but it's really important that they be taken into account. `Use strict` in your code, in short, will force you to write code using a more specific coding style, and will throw an error if you don't. This basically serves to prevent common errors at runtime from happening. Meanwhile, `use warnings` basically serves to show possible typos, syntax errors or use of something that doesn't exist. The main difference between both is that the first terminates the program if it has an error and the second does not. I won't go into much detail about how they both work because these are details that an absolute beginner would hardly understand, but it's important to mention that it's a good practice to always use these two tools in your codes. To use them in your code, just put them in the first few lines before the code itself starts: ```perl use strict; use warnings; print "Enter your age:\n"; chomp($idade = ); unless ($idade < 18) { print "Purchase not authorized\n"; } else { print "Purchase authorized\n"; } ``` If your code still has a hashbang at the beginning, just put it after it: ```perl use strict; use warnings; print "Enter your age:\n"; chomp($idade = ); unless ($idade < 18) { print "Purchase not authorized\n"; } else { print "Purchase authorized\n"; } ``` And that’s it. ## Exercises 1. Write a Perl script that checks whether a number the user passes is even. If it is even, print “This number is even”, while if it is odd, print “This number is odd 2. Research the `length` function and write a program that returns the message "Word too short" if a returned word has less than five letters 3. Take your previous code and add `use strict` and `use warnings`. Did an error appear? How did you go about solving it?

--- ![](https://images.ecency.com/DQmVcWX9XzmjxLezCBr81JUgqNHnP4f1EQHZMuqJHYEbpvE/inserir_um_ttulo_1_.png) [Leia também na Odysee](https://odysee.com/@lingy:7/Perl-usando-condicionais-parte-2:3)

[Leia a parte 1](https://steemit.com/hive-192037/@arthursiq5/en-or-pt-perl-using-conditionals-first-part-or-perl-usando-condicionais-parte-1) Ok, você deve estar pensando agora “tá, mas por que esse tutorial teve uma parte 2?”, e eu te respondo: Perl possui mais estruturas condicionais que apenas `if` e `else`. Uma dessas estruturas é a `unless`. Veja por exemplo o comando `unless`. O comando `unless` é uma estrutura condicional parecida com o comando `if`, mas com a lógica invertida. Ele é usado para testar uma condição e, se ela for falsa, o código dentro do bloco `unless` será executado. Por exemplo: ```perl unless (0) { print "Entrou dentro do unless\n"; } ``` Lembrando que o número zero é interpretado por muitas linguagens, inclusive Perl, como falso, e o número um como verdadeiro. Nesse caso, como a condicional tem valor falso, o código de dentro do bloco será executado. Vamos fazer um exemplo simples: transformar o exemplo do [tutorial anterior](https://steemit.com/hive-192037/@arthursiq5/en-or-pt-perl-using-conditionals-first-part-or-perl-usando-condicionais-parte-1) em um exemplo do uso de `unless`. Comecemos relembrando o exemplo dado, que é um código de um programa para ver se uma pessoa pode comprar cigarros ou álcool baseado em sua idade: ```perl print "Digite sua idade:\n"; chomp($idade = ); if ($idade >= 18) { print "Compra autorizada\n"; } else { print "Compra não autorizada\n"; } ``` Agora vamos alterar a ordem usando a condicional `unless`: ```perl print "Digite sua idade:\n"; chomp($idade = ); unless ($idade < 18) { print "Compra não autorizada\n"; } else { print "Compra autorizada\n"; } ``` Como pode ver, a ordem dos fatores foi alterada sem que a funcionalidade do código fosse necessariamente alterada. Esse é basicamente o funcionamento de `unless`, e, embora não seja uma cláusula usual de ser encontrada em códigos, é bom conhecer mais essa estrutura condicional. E aí, gostou? Conta mais pra mim nos comentários 😄😊 ## Adendo O usuário [@gwajnberg](https://ecency.com/@gwajnberg) da Hive falou algo muito importante no tutorial passado que foi o uso de `use strict;` e `use warnings;` em seus códigos. Eu omiti esses elementos durante os exemplos, mas realmente é importante que sejam levados em consideração. O `use strict` no seu código, de forma resumida, fará que você seja obrigado a escrever o código usando um estilo mais específico de codificação, e acusará erro caso não o faça. Isso serve basicamente para evitar que erros comuns em tempo de execução possam acontecer. Enquanto isso, o `use warnings` serve para basicamente mostrar possíveis erros de digitação, de sintaxe ou uso de alguma coisa que não existe. A principal diferença entre ambos é que o primeiro encerra o programa se tiver um erro e o segundo não. Não vou entrar em muitos detalhes sobre o funcionamento de ambos porque se trata de detalhes que um iniciante absoluto dificilmente compreenderia, mas é importante mencionar que se trata de uma boa prática sempre usar essas duas ferramentas em seus códigos. Para usar elas em seu código, é só colocar nas primeiras linhas antes do código em si iniciar: ```perl use strict; use warnings; print "Digite sua idade:\n"; chomp($idade = ); unless ($idade < 18) { print "Compra não autorizada\n"; } else { print "Compra autorizada\n"; } ``` Se seu código ainda tiver uma hashbang no início, é só colocar depois dela: ```perl #!/usr/bin/perl use strict; use warnings; print "Digite sua idade:\n"; chomp($idade = ); unless ($idade < 18) { print "Compra não autorizada\n"; } else { print "Compra autorizada\n"; } ``` E é isso. ## Exercícios 1. Escreva um script Perl que verifica se um número que o usuário passar é par. Se for par, mostre “Esse número é par”, enquanto se for ímpar diga “este número é ímpar 2. Pesquise sobre a função `length` e escreva um programa que retorne a mensagem “Palavra curta demais” caso uma palavra retornada tenha menos de cinco letras 3. Pegue seus códigos anteriores e adicione `use strict` e `use warnings`. Apareceu algum erro? Como você fez para resolver?

Steemit Dev Group