What will be the 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); ">
Correct Answer:
Perl
EXAMPLE
EXAMPLE
P e r l
P==e==r==l
P==e==r==l
P==e==r==l
END!!
Explanation:
Note: This Question is unanswered, help us to find answer for this one
More Perl MCQ Questions