1D0-437 CIW PERL FUNDAMENTALS Questions and Answers

Jan Feb May Apr Mar

Jan Feb Mar Apr May

Mar Apr May Jan Feb

May Jan Feb Mar Apr

close (INPUT, $file);

closeINPUT;

INPUT(close, $file);

close(INPUT);

The code will output the following:

11 12 13 14 15 16 17 18 19

The code will output the following:

10 11 12 13 14 16 18 20 22

The code will output the following:

10 11 12 13 14 16 18 20

The code will output the following:

10 11 12 13 14 15 16 17 18 19 20

The code will fail at line 1 because a hash cannot contain both numeric and string data.

The code will execute without error but will output nothing.

The code will output the following:

32oz

16oz

8oz

The code will output the following:

large

medium

small

getpass($arg2);

call &getpass($arg2);

sub &getpass($arg2);

call getpass($arg2);

The code will output the following:

20 100 Apple Grapefruit Orange

The code will output the following:

Apple Grapefruit Orange 20 100

The code will output the following:

100 20 Apple Grapefruit Orange

The code will output the following:

Orange Grapefruit Apple 100 20

print ("capital"=>$kansas);

print {$kansas}=>(capital);

print (capital)<={$kansas};

print $kansas->{"capital"};

arg1

runme.pl

arg1 arg2 arg3

2

False False

False True

True False

True True

The code will output the following:

20 100 Apple Grapefruit Orange

The code will output the following:

Apple Grapefruit Orange 20 100

The code will output the following:

100 20 Apple Grapefruit Orange

The code will output the following:

Orange Grapefruit Apple 100 20

applesorangespearsplums

apples oranges pears plums

apples

apples

oranges

pears

plums

open(PASSWD, ">/etc/passwd");

open(PASSWD ">/etc/passwd");

open(PASSWD, ">>/etc/passwd");

open(PASSWD "+>/etc/passwd");

while {0} (print "OK");

while ($c != 99) {print "OK"}

while {$b eq "OK"} (print "$a++");

while ($_) Do {print "OK");

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

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

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

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

\@array4;

@array4($ref);

getpass(\@array4);

getpass{@array4};

Writing pseudo-code before beginning the script

Writing modular code

Declaring and initializing variables

Using the no strict <'refs' | 'vars' | 'subs'>; commands in the code

To organize packages

To provide code reusability

To separate code in a file

To create separate namespaces

$sth = $dbh->prep_statement(SELECT * FROM aTable);

$sth->execute_statement;

$sth = $dbh->prepare(SELECT * FROM aTable);

$sth->execute;

$sth = $dbh->prep_statement(SELECT * FROM aTable);

$sth->execute;

$sth = $dbh->prepare_statement(SELECT * FROM aTable);

$sth->execute_statement;

$sqlStmt = q{INSERT INTO aTable (NAME, AGE) VALUES ($name, $age)};

$sqlStmt = q{INSERT INTO aTable (NAME, AGE) VALUES ($name\, $age)};

$sqlStmt = qq{INSERT INTO aTable (NAME, AGE) VALUES ($name, $age)};

$sqlStmt = qq{INSERT INTO aTable (NAME, AGE) VALUES (\$name\, $age)};