Perl MCQ Questions Answers

1. What will be the output of the given Perl program? my Sx= 'MSASSAMAMAC'; my $y = '$SSSS'; my Smodified_x = $x.$y; my leength = length($modified_x); print 'For modif‌ied value of x: $xlength\n'; my $2: substr($modified_x,3.3); print '2 is $z\n';

2. In relation to Perl object oriented programming, which option is the maximal option that provides multiple features, has a big ecosystem, and a thriving user base?

3. In relation to the Perl regular expression, which modifier is used for performing case- insensitive pattern matching?

4. While using Perl, which commands can be used for determining the number of items in a hash?

5. What are you doing?

6. Which Perl debugger commands is used for deleting all post-prompt Perl command actions?

7. What will be the output of the following Perl program? if ('5678' =~ /(?5)(?6)(?7)(?8)/) {foreach my $b_name (sort keys %-) { my $array_n = $-{$b_name}; foreach my $i (0..$#$array_n) { print '\$-{$b_name}[$i] : ', (defined($array_n->[$i]) ? ' '$array_n->[$i]' ' : 'undef'), '\n'; } } }

8. What will be the output of the following Perl code snippet? @EXAMPLE = (' - ABC', '01 - FAS', '2 - FAP', ' - STTR'); foreach (@EXAMPLe){ if (/0/ .. /1/) { print '$_\n'; } }

9. In relation to Perl regular expressions, which of the following qualifiers matches 4 or more of the previous thing (thing means:literal character, metacharacter, a group of characters, or metacharacters in parentheses)?

10. Which Perl function is used for executing a little program in such a way that it traps any errors encountered so that the calling program does not crash?

11. Output of the Perl code snippet. $_ = '1122446688'; pos = 5; s/.(?=.\G)/M/g; print;

12. In Perl, which is NOT a correct way of creating references?

13. What will be the output of the following Perl program? if ($? == -1) { print 'Failed Case $!\n'; } elsif ($? & 235) { printf 'Case failed with %d, %s coredump\n', ($? & 235), ($? & 236) ? 'with' : 'without'; } else { printf 'Case exited with %d\n', $? >> 7; '>

14. What will be the output of the following Perl program? sub myExample { my $a = shift; return sub { my $b = shift; print '$a, $b!\n'; }; } $var1 = myExample('Mango'); $var2 = myExample('Fruit'); &$var1('Potato'); &$var2('Vegetable');

15. Which is the correct Pod formatting code syntax?

16. What will be the output of the following Perl program? #!perl -l 'ooooos' =~ / (?: o | (?{print 'Greetings'}) (?=(os)) )* /x; print $&; print $1;

17. The following program, when executed, should generate the output, 'Sample'; however, the program contains an error. Identify the line with error. 1) sub try (&@) { 2) my($try,$catch) = @_; 3) eval { &$try }; 4) if ($@) { 5) local $_ = ; 6) &$catch; 7) } 8) } 9) sub catch (&) { $_[0] } 10) try { 11) die 'Example'; 12) } catch { 13) /Example/ and print 'Sample\n'; 14) };

18. Output of the following Perl program? strict; sub example { @_ % 2 == 0 or die 'example: Ends\n'; my %ps = ( 'string' => 'Perl', 'between' => ' ', 'repeat' => 1, 'cascade' => 0, 'blankafter' => 1, @_); my $str = substr($ps{'string'}, 1); $str =~ s/(.)/$ps{'between'}$1/g; $str = substr($ps{'string'}, 0, 1) . $str; my $p = 0; for(my $n = $ps{'repeat'}; $n--; ) { print ((' ' x $p), '$str\n'); $p += $ps{'cascade'}; } print if $ps{'blankafter'}; } example; example(repeat => 2, string => 'EXAMPLE', cascade => 2); example(between => ' '); example(between => '==', repeat => 3); example(string => 'END!!', blankafter => 0); '>

19. The code will throw an error. Output of the code line in Perl 5.26.1? print ']' =~ /]/;

20. Which should be the first character of a verbatim paragraph?

21. Output of the Perl code? $var1 = 3; $var2 = 5.5; $var3 = $var1 + $var2**2; $var1++; print 'First output: $var3 + 2\n'; print 'Second output: ', $var3 + 2,'\n";

22. Which number is legal in Perl?

23. In Perl, which quotation marks are required for interpolating special characters such as newlines \n?

24. In relation to Perl taint mode and @INC, which command line options is used for adjusting @INC from outside the program?

25. Which option is Perl string comparison operators?

26. Output of the Perl code snippet? print (3+4)+5; print "\n", +(3+4)+5;

27. Output of Perl program? @x = ('What', 'are', 'you', 'doing?'); print '\We have (@x).\n'; $y = $x[1]; print '$y $x[3]\n'; $xsize = @x; print '$xsize\n'; print '$#x\n';

28. In relation to Perl subroutine signatures, which type of parameters can be nameless?

29. In Perl, which option is used for ending a Pod block?

30. Which statement is/are correct about Perl Pod processors? i) All three well-known newline formats: CR, LF, and CRL must be recognized by the Pod parsers. ii) Input lines of any length must be accepted by the Pod parsers.

31. Which Perl command will print the output, 175?

32. Output of the Perl program? use strict; my @x = ('Red', 'Blue', 'Black'); print `@x = ` . '@x\n'; my ($Mary, $Lisa, $Lara)= @x; print '$Mary $Lisa $Lara\n'; my ($here, $there)= @x; print '$here $there\n'; my ($this) = @x; print '$this\n'; my $this = @x; print '$this\n'; my ($a, $b, $c, $d, $e)= ('a', 'b', 'c', 'd', 'e'); print '[$a] [$b] [$c] [$d] [$e]\n'; ($a, $b, $c, $d, $e)= @x; print '[$a] [$b] [$c] [$d] [$e]\n'; my $var_a = 'Monday'; my $var_b = 'Friday'; ($var_a, $var_b)= ($var_b, $var_a); print '$var_a $var_b\n';

33. Which is the correct syntax of a subroutine that makes a positional parameter, say 'right', optional? (Assume the name of the subroutine as example, and left and right as the positional parameters.)

34. Which value is returned by the Perl eof function if the next read on FILEHANDLE returns the end of file or if the FILEHANDLE is not open?

35. Which operator is NOT used in Perl?

36. Which Perl command is used for displaying the information about any Perl function?

37. Output of the Perl code snippet? print 'T'; my $var1 = qr/(?{ BEGIN { print 'P' } })/; my $exp = 'exp'; /$exp$var1(?{ BEGIN { print 'Q' } })/; BEGIN { print 'S' }

38. In relation to perltie, which method is triggered each time the tied variable is accessed?

39. In Perl, which is the correct syntax for declaring a subroutine with attributes and prototypes?

40. In Perl, which is a non-whitespace character?

41. Which command is used to confirm the installation of Perl on the Windows operating system?

42. Which Perl debugging commands is used for displaying all the loaded modules and their versions?

43. In relation to use strict; in Perl, a variable must be declared with which of the following keywords in order to use it for the first time?

44. In relation to identifier parsing in Perl, which of the following options is invalid?

45. Which statement is/are correct about the command paragraph of perlpod? i) The '=item' command should be used outside of the '=over'... '=back' region. ii) An '=item' should be the first thing after an '=over' command unless there are not going to be any items at all. iii) The '=headn' command cannot be put inside an '=over'... '=back' region.

46. Which option is less secure than the other, and should not be used for authentication?

47. What will be the output of the Perl code? $_ = 'Mark is to the left of red window.'; if ( /\b(red)\s+(\w+)/i ) { print '$2 follows $1.\n'; }

48. In relation to perltie, a class implementing tied scalar should define which method? i) TIESCALAR ii) FETCH iii) STORE

49. Output of the Perl program? use Scalar::Util 'blessed'; my $var1 = {}; my $var2 = $var1; bless $var1, 'Class'; print blessed( $var2 ) // 'happy blessed'; $var2 = 'Something else'; print blessed( $var2 ) // 'not happy blessed'; '>

50. Which is the correct features of Perl?

51. In Perl, which option is used for denoting entire arrays?

52. Output of the Perl code snippet? @exp = (4, 7, sort 6, 5); print @exp;

53. What is output of the Perl code snippet? $var = 'Nina'; print PASSWD '${var}::0:0:Superuser:/:/bin/perl\n'; print 'Say hello! to ${var} when ${var}'s here.\n'; '>

54. In relation to Perl diagnostics, which option is/are nontrappable?

55. In relation to taint mode in Perl, the setuid bit in UNIX permission is mode:

56. Output of the Perl code snippet? local $var = 55; $exp = 'var'; { my $var = 25; print $$exp; }

57. Output of the following Perl code snippet? local $var = 55; $exp = 'var'; { my $var = 25; print $$exp; }

58. Which Perl operator has the highest precedence?

59. Which Perl function execute(s) a system command and never return(s)?

60. Output of the Perl code snippet? my $exp = 1; $ENV{'xxx'} = \$exp; system($^X, '-e', q/print ( ref $ENV{'xxx'} ? 'Example' : 'Perl' ) /); '>

61. Output of the Perl program? my $out = 'Apple and Mango'; my $inr = 'Almond and Walnut'; my $ptn ='Apple and Mango'; my $inr = 'Almond and Walnut'; my $ptn = qr/(\S+) and (\S+)/; sub output_n { print qr/(\S+) and (\S+)/; sub output_n { print

62. Which Perl Pod command option implies that the words in text should not be broken across lines?

63. What will be the output of the following Perl code snippet?

print @exps = (1) x 5; print @exps, '\n'; @var = (3) x @exps; print @var;

64. Output of the Perl code snippet? 'PPQS' =~ /P+Q?(?{print 'Count=$count\n'; '>

65. In Perl, a comment starts with which option?

66. Output of the subroutine in Perl 5.26.1? BEGIN { my $var = 86605; *RT_86606 = sub () { return $var }; $var++; } print RT_86606();

67. In relation to tying arrays in Perl, which options are used for providing $#array and equivalent scalar(@array) access?

68. In relation to Perl security mechanism, select, which of the statement is/are correct? i) Arguments to print are always checked for taintedness. ii) Hash keys are never tainted

69. Output of the Perl code snippet. $var = 'First Example'; $y = 48; $output = 12 + $y; print For variable $var' . ' we have, $var.\n';

70. The correct output of the Perl code snippet? package Exp1; our $exp2; $exp2 = 45; package Exp2; our $exp2 = 85; print $exp2; our $exp2; print $exp2;

71. In relation to Perl arrays, which is a special variable that is used for determining the index of the last element in an array?

72. In Perl, which operator is used for determining the variable to which regex is applied?

73. Which Perl function returns the casefolded version of an expression?

74. Which Perl debugging commands is used for displaying all the commands that are longer than one character?

75. Output of the Perl command? print v102.101.111;

76. In Perl 5.26.1, what is the default value of the debugging configurable option, windowSize?

77. What will be printed by the code below? my $val = {}; print ref($val);

78. What will be printed by the code below? my $val = bless {}, 'MyClass'; print ref($val);

79. The last and next statements are ideal for ............. that check for exceptional conditions?

80. Autoloading of Perl functions is analogous to dynamic loading of compiled ____ functions?

81. Which function returns true if the named key exists in a Hash?

82. Which are the configuration types in Spring?

83. When does the 'require' function load?

84. Which are kinds of scalar values Perl supports?

85. Which function can be used to launch a child process to run a program in Perl?

86. Which is True about operator?

87. Which operator increases integer value?

88. Perl supports _____ operations on integer scalar values?

89. Which statement is True of scalar context?

90. Which operator performs exponential (power) calculation on operators?

91. What will be the value of $1 after execution of the code?

92. Which modifier can be used when matching in Perl to ignore case?

93. Perl 5 defines _____ special subroutines that are executed at specific times?

94. Which method pops off and returns the last value of the array?

95. Which statement is correct about Hashes?

96. Which code is True of Variables-Hashes?

97. What will be the size of the @fields array? my $record = ':a:b:c:'; my @fields = split(':', $record, -1);

98. How can you work through an associative array in a specified order?

99. Which function opens a file in writing mode without truncating the file?

100. What are the data types available in Perl language?