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 @array = ();
>
> $cont = 0;
>
> while ($numero > $cont)
> {
> $array[$cont]="*";
> $cont++;
> }
>
> print @array;
> print "\n";
> print @array;
> print "\n";
my @square = ('*' x $number) x $number;
substr $_, 1, $number-2, ' ' x ($number-2) for @square[1..$number-2];
print "\n\n";
print "$_\n" foreach @square;
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
