How to print Pyramid Pattern in Perl

How to print Pyramid Pattern in Perl ?

Answer

To print a pyramid pattern in Perl, you can use nested loops where the outer loop controls the rows and the inner loops control the spaces and stars printed in each row.

✐ Examples

1 Pyramid Pattern with Asterisks (*)

In this example,

We define a subroutine print_pyramid that takes an integer n as input to represent the number of rows in the pyramid.
We use nested loops where the outer loop controls the rows and the inner loops control the spaces and stars printed in each row.
Inside the inner loops, we use conditions to determine whether to print a space or a star (*) based on the pyramid pattern.
After each row, we use print to move to the next line.

Perl Program

sub print_pyramid {
    my ($n) = @_;
    for my $i (0..$n-1) {
        print ' ' x ($n - $i - 1);
        print '*' x (2 * $i + 1);
        print "\n";
    }
}

print_pyramid(5);

Output

    *
   ***
  *****
 *******
*********

Summary

In this tutorial, we learned How to print Pyramid Pattern in Perl language with well detailed examples.

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos