Questão 1995291 de Tecnologia da Informação - ACAFE 2024

Questão

ID 1995291

Disciplina: Tecnologia da Informação

Assunto: Perl

Ano: 2024 Banca: ACAFE - Associação Catarinense das Fundações Educacionais Órgão: Centrais Elétricas de Santa Catarina S.A.

Um programador está escrevendo um script Perl para ler um arquivo de texto chamado "dados.txt" e contar quantas vezes a palavra "Perl" aparece no arquivo. Qual das alternativas abaixo mostra CORRETAMENTE como esse script pode ser escrito?

Alternativa A:
open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";
my \$count = 0;
while (<FILE>) {
\$count += tr/Perl/Perl/;
}
close(FILE);
print "A palavra 'Perl' aparece \$count vezes.\n";
Alternativa B:
open(FILE, "dados.txt") or die "Não foi possível abrir o arquivo.";
my \$count = 0;
while (<FILE>) {
#count++ while /Perl/g;
}
close(FILE);
print "A palavra 'Perl' aparece \$count vezes.\n";

open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";

my \$count = 0;

while (my \$line = <FILE>) {

\$count++ if \$line =~ /Perl/;

}

close(FILE);

print "A palavra 'Perl' aparece \$count vezes.\n";

Alternativa D:
open(FILE, "dados.txt") or die "Não foi possível abrir o arquivo.";
my \$count = 0;
while (<FILE>) {
\$count += () = /Perl/g;
}
close(FILE);
print "A palavra 'Perl' aparece \$count vezes.\n";

open(FILE, "<dados.txt") or die "Não foi possível abrir o arquivo.";

my \$count = 0;

while (<FILE>) {

else (\$_ =~ /Perl/g) {

\$count++;

}

close(FILE);

print "A palavra 'Perl' aparece \$count vezes.\n";

Estatísticas Cadernos

Questão 1995291

Continue estudando na plataforma