Question

END;

Alternativa E, correta, pois define o procedimento corretamente usando AS (ou IS, ambos são válidos) e especifica os modos dos parâmetros (IN), que é a sintaxe correta para procedimentos armazenados em PL/SQL. A instrução INSERT INTO também está corretamente formulada com a lista de colunas e os valores.

Alternativa A, incorreta, já que contém um erro na instrução INSERT INTO, pois a lista de colunas está ausente. O correto é especificar as colunas (ID, NOME, SALARIO) antes dos valores. Alternativa B, incorreta, pois não especifica os modos dos parâmetros (IN), o que é uma prática recomendada para

clareza e para evitar ambiguidades.

Alternativa C, incorreta, pois além de não especificar os modos dos parâmetros, essa alternativa usa uma sintaxe incorreta ao adicionar add_empregados após o END, o que não é permitido em PL/SQL. Alternativa D, incorreta, pois não usa a palavra-chave AS, que é usada para definir procedimentos e pacotes em PL/SQL, e utiliza IN que não é uma palavra-chave em PL/SQL.

GONÇALVES, E. PL/SQL – Domine a linguagem de banco de dados Oracle. Casa do Còdigo, 2015. ISBN:

8555190738.

MC LAUGHKUN, M. Oracle Database 12c PL/SQL Programming. Mc Graw Hill, 2014. ISBN: 0071812431. PRICE, J. Oracle Database 11G SQL. Domine SQL e PL/SQL no banco de dados Oracle. Bookman, 2008. ISBN:

857780335X.

Sistemas de Gerenciamento de Banco de Dados

Linguagens PL/SQL Comandos Básicos

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?

Accepted Answer

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

Answer

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

Answer

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

Answer

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

Answer

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

Mais questões de Paradigmas e linguagens de programação