Questão de Arquitetura de Software — Software — ACAFE 2024
Arquitetura de SoftwareSoftware
- Código
- qg053111
- Banca
- ACAFE
- Órgão
- CELESC
- Ano
- 2024
- Nível
- Superior
- Cargo
- Analista de Sistemas - Infraestrutura Operação e Seguranç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?
- Aopen(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";
- Bopen(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";
- Copen(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";
- Dopen(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";
- Eopen(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";