The perl module Graphics::Simple might be able to help you.
Found on CPAN.
--jms
On May 5, 2008, at 9:22 AM, Rodrigo Tavares wrote:
> Hello,
>
> I need create a square using a single number, but I don't know how =20
> to create the sides.
>
> I have to create this:
>
> ****
> * *
> * *
> ****
>
> My code is below :
>
> print "Enter with number:";
> chomp ($number =3D <STDIN>);
>
> my @[EMAIL PROTECTED]
=3D ();
>
> $cont =3D 0;
>
> while ($numero > $cont)
> {
> $array[$cont]=3D"*";
> $cont++;
> }
>
> print @[EMAIL PROTECTED]
> print "\n";
> print @[EMAIL PROTECTED]
> print "\n";
>
> How I can to show the arrar like sides ?
>
> []'s
>
> Faria
>
>
> Abra sua conta no Yahoo! Mail, o =FAnico sem limite de espa=E7o
=20=
> para armazenamento!
> http://br.mail.yahoo.com/
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe@[EMAIL PROTECTED]
> For additional commands, e-mail: beginners-help@[EMAIL PROTECTED]
> http://learn.perl.org/
>
>
