Q907115 | Arquitetura de Software, Infraestrutura Operação e Segurança, CELESC, ACAFE, 2024Um 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? 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. "; 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. "; c) 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. "; 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. "; e) 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. "; Resolver questão 🗨️ Comentários 📊 Estatísticas 📁 Salvar 🏳️ Reportar erro