How to print Hollow Square Pattern in Perl

How to print Hollow Square Pattern in Perl ?

Answer

To print a Hollow Square Pattern in Perl, you can use nested loops. The outer loop controls the rows, and the inner loop controls the columns. Conditions are used to determine whether to print stars or spaces for the pattern.

✐ Examples

1 Print Hollow Square Pattern

In this example,

We define a subroutine named print_hollow_square that takes the side length n as a parameter.
We use two nested for loops, one for rows and one for columns, to iterate through each cell of the square.
Within the loops, we use conditions to check if we are at the border or inside the square, printing stars (*) for the border and spaces ( ) for the inside.
Finally, we call print_hollow_square with the desired side length to print the pattern.

Perl Program

sub print_hollow_square {
  my ($n) = @_;
  for my $i (0..$n-1) {
    my $row = '';
    for my $j (0..$n-1) {
      if ($i == 0 || $i == $n-1 || $j == 0 || $j == $n-1) {
        $row .= '*';
      } else {
        $row .= ' ';
      }
    }
    print "$row\n";
  }
}

my $side_length = 5;
print_hollow_square($side_length);

Output

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

Summary

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

◀ Previous Next ▶

Perl Tutorials

Perl How-Tos