Questão de Tecnologia da Informação

my $count = 0; while (<FILE>) { else ($_ =~ /Perl/g) { $count++; } } close(FILE); print "A palavra 'Perl' aparece $count vezes.\n"; Alternativa D, correta, pois utiliza a expressão regular /Perl/g juntamente com a atribuição a um array vazio () =, que permite contar todas as ocorrências da palavra "Perl" em cada linha do arquivo. Esse método é eficiente e conciso para obter a contagem total das ocorrências. Alternativa A, incorreta, pois usa tr///, que é para contar caracteres específicos, não palavras. Por isso, não funcionaria corretamente para contar a palavra "Perl". Alternativa B, incorreta, pois a forma de incrementar é $count e não #count. Alternativa C, incorreta, pois conta apenas uma ocorrência da palavra "Perl" por linha, o que está incorreto. Ela não conta múltiplas ocorrências dentro da mesma linha. Alternativa E, incorreta, pois a estrutura de while – else não existe. O correto seria while – while. Ou seja, uma estrutura de while aninhado: while (<FILE>) { else ($_ =~ /Perl/g) { $count++; } } ASTHAMA, A. Perl & Shell Scripting Interview Questions: another interview masterpiece. Independently Published, 2023. SANCHEZ, T.G. Programando com Perl. Brassport, 1ª. Ed., 2012. ISBN: 8574524859. SCHWARTZ, R., FOY, B., PHOENIX, T. Learning Perl: Making Easy Things Possible. O´Reilly Media, 8th ed., 2021. ISBN: 1492094951. Desenvolvimento de Sistemas Linguagem de Programação Linguagem de Script Perl