How to print Hour Glass Pattern in Perl

How to print Hour Glass Pattern in Perl ?

Answer

To print an Hourglass Pattern in Perl, we use nested loops. The outer loop controls the rows, and the inner loops control the spaces and stars (*) to form the pattern.

✐ Examples

1 Hourglass Pattern

In this example,

We define a function print_hourglass that takes the desired number of rows n as a parameter.
We use two nested for loops, where the outer loop runs from n to 1 and the inner loops control the spaces and stars in each row.
Within the inner loops, we calculate the number of spaces and stars based on the current row number to form the hourglass pattern.

Perl Program

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

# Example usage
print_hourglass(5);

Output

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

Summary

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

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos