Um programador está escrevendo um script Perl p...

457941201222573

Ano: 2024Banca: ACAFEOrganização: CELESCDisciplina: Desenvolvimento e Arquitetura de SoftwareTemas: Engenharia de Software

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?

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

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 (my $line = <FILE>) {

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

}

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

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

Gabarito comentado

Anotações

Marcar para revisão

457941201222573

Ano: 2024Banca: ACAFEOrganização: CELESCDisciplina: Desenvolvimento e Arquitetura de SoftwareTemas: Engenharia de Software

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

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 (my $line = <FILE>) {

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

}

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

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

Gabarito comentado

Anotações

Marcar para revisão

Um programador está escrevendo um script Perl para ler um arquivo de texto chamado "dados.txt" e contar quantas vezes a ...

Questões relacionadas para praticar

Um programador está escrevendo um script Perl para ler um arquivo de texto chamado "dados.txt" e contar quantas vezes a ...

Questões relacionadas para praticar