Re: Writing side of square

Rodrigo Tavares wrote:
> Hello,
> 
> I need create a square using a single number, but I don't know how to
create the sides.
> 
> I have to create this:
> 
> ****
> *  *
> *  * 
> ****
> 
> My code is below :
> 
> print "Enter with number:";
> chomp ($number = <STDIN>);
> 
> my @[EMAIL PROTECTED]
 = ();
> 
> $cont = 0;
> 
> while ($numero > $cont)
>  {
>  	$array[$cont]="*";
>  	$cont++;
>  }
>  
>  print @[EMAIL PROTECTED]
>  print "\n";
>  print @[EMAIL PROTECTED]
>  print "\n";

my @[EMAIL PROTECTED]
 = ('*' x $number) x $number;
substr $_, 1, $number-2, ' ' x ($number-2) for @[EMAIL PROTECTED]
 "\n\n";
print "$_\n" foreach @[EMAIL PROTECTED]