Questão
ID 1415363Disciplina: Tecnologia da Informação
Assunto: Perl
Ano: 2016 Banca: COMPERVE UFRN - Comissão Permanente do Vestibular da Universidade Federal do Rio Grande do Norte Órgão: Universidade Federal do Rio Grande do Norte
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á: