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? 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. ";

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. ";

Um programador está escrevendo um script Perl para ler um...

1Q907115 | Arquitetura de Software, Infraestrutura Operação e Segurança, CELESC, ACAFE, 2024

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?

✂️ 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. ";