CIW 1D0-437 Exam Questions
CIW Perl Fundamentals exam (Page 11 )

Consider the following statement:
for ($count=0; $count < 5; $count++) {print "$count "} What will be the output from the given statement?

Consider the following program code:
$var = 10;
package Alpha;
$var = 20;

{
package Beta;
$var = 30;
}
package Gamma;
$var = 40;
{
print $var;
}
What is the output of this code?

Consider that a file named test.txt contains this line of text:
One line of test text.
What is the output of the following lines of code? $file = "test.txt";
open (OUT, "<$file") || (die "cannot open $file: $!"); seek(OUT, 15, 0);
read(OUT, $buffer, 5);
print $buffer . "\n";
print tell(OUT);

Consider the following code:
%hashA = ("alpha", "beta", "gamma", "alpha");
%hashA = reverse(%hashA);
print $hashA{"alpha"};
What is the result of executing this code?

Consider the following command perl1 runme.pl arg1 arg2 arg3 Given this command issued on the command line, what is the value of $#ARGV?