Questão 4140979

• Banca: COMPERVE
• Órgão: UFRN
• Ano: 2016
• Provas: COMPERVE - 2016 - UFRN - Analista de Tecnologia da Informação
• Disciplina: Programação
• Assuntos: Linguagens de programação; Perl

Analise o trecho de código em Perl a seguir.

#!/usr/bin/perl

$aux = 1;

@array =

("10","2202","366","55");

$var = "";

if ($array[0] ne "10"){

$var .= "1";

} else {

$var .= "0";

$aux++;

}

if ($array[$#array-1] eq "366"){

$var .= "0";

} else {

$var .= "1";

$aux++;

}

if ($array[$aux] =~ /20/){

$var .= "0";

} else {

$var .= "1";

}

print "$var\n";

Após a execução do código, o valor da variável $var impresso na tela será:

• A. 111
• B. 000
• C. 110
• D. 001

Gabarito: D

Comentários

• "ne": Diferença de strings - ex.: "João" ne "Joana" = 'True'

  "~" : Concatenação de strings - ex.: 9 ~ 7 = "97" ou "Oi " ~ "pessoal" = "Oi pessoal"

  "eq": Igualdade de strings - ex.: "João" eq "João" = True

• "eq": equal

  "ne": not equal

  ".": Concatenação

  "=~": faz uma busca de acordo com um padrão

  "$#lista": último índice do array "lista"