How to print Hollow Inverted Pyramid Pattern in Perl

◀ Previous Next ▶

How to print Hollow Inverted Pyramid Pattern in Perl ?

Answer

To print a hollow inverted pyramid pattern in Perl, we use nested loops to manage spaces and stars.

✐ Examples

1 Print Hollow Inverted Pyramid Pattern in Perl

In this example,

We assume the number of rows for the inverted pyramid is 5.
We then use nested loops where the outer loop controls the rows and the inner loop manages spaces and stars.
Within the loops, we use conditions to print stars only at specific positions to create the hollow effect.
The outer loop decrements from 5 to 1, managing the rows of the inverted pyramid.
The inner loop calculates the spaces required to position the stars correctly, ensuring the hollow pattern.
Stars are printed based on conditions to achieve the desired hollow inverted pyramid pattern.

Perl Program

#!/usr/bin/perl
use strict;
use warnings;

my $num_rows = 5;

for my $row (reverse(1..$num_rows)) {
    my $pattern = '';
    $pattern .= ' ' x ($num_rows - $row);
    if ($row == $num_rows || $row == 1) {
        $pattern .= '*' x (2 * $row - 1);
    } else {
        $pattern .= '*';
        $pattern .= ' ' x (2 * $row - 3);
        $pattern .= '*';
    }
    print "$pattern\n";
}

Output

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

Summary

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