CIW 1D0-437 - CIW PERL FUNDAMENTALS

Page: 5 / 5
Total 149 questions

Question # 41

Which one of the following choices will replace all occurrences of the word perl with the word Perl?

s/Perl/perl/I;

s/"perl"/"Perl"/g;

s/"perl"/"Perl"/;

s/perl/Perl/g;

Consider the following lines of code:

$_ = "This is a test";

s/^([^ ]*)\s*([^ ]*)/$2 $1/;

print;

What is the output of these lines of code?

h Tis a test

is This a test

i Thiss a test

his T is a test

Which line of code represents the correct syntax to establish a reference to a database handle?

$dbh = DBI::connect("dbi:mysql:myPhoneBook");

$dbh = DBD:->connect("dbi::mysql::myPhoneBook");

$dbh = DBD::connect("mysql:dbi:myPhoneBook");

$dbh = DBI->connect("dbi:mysql:myPhoneBook");

Consider the following program code:

%employees = ("Lucy", "Accounting", "Armando", "Finance",

"Adrienne", "Marketing");

delete($employees{"Lucy"});

Which of the following lines of code has the same effect as the preceding code?

%employees = ("Adrienne", "Marketing");

%employees = ("Lucy", "Accounting");

%employees = ("Lucy", "Accounting", "Armando", "Finance");

%employees = ("Armando", "Finance", "Adrienne", "Marketing");