RE: Writing side of square

Rodrigo Tavares <digolinopage@[EMAIL PROTECTED]
> asked:
> I need create a square using a single number, but I don't=20
> know how to create the sides.

#!/usr/bin/perl -w

use strict;

for( my $n =3D 1 ; $n <=3D 10; $n++ ){

  print "\nn =3D $n\n\n";

  if( $n =3D=3D 1 ){
    print "*\n";
  } else {
    print '*'x$n . "\n";
    for( my $line =3D 2; $line < $n; $line ++ ){
      print '*' . ' 'x($n-2) . "*\n";
    }
    print '*'x$n . "\n";
  }

}

__END__

HTH,
Thomas