Writing side of square - ReadList.com

10 msg	Text formatting issues
1 msg	re: find path to current file, NOT working dire...
2 msg	Passing Creadentials and parameters through htt...
7 msg	how to shorten this code ? x occur how many tim...
1 msg	Compare String is not match !
3 msg	Compile error
5 msg	chaining defines
2 msg	sed split on pipe
4 msg	csv file question

Writing side of square
\ Rodrigo Tavares (5 May 2008)
. \ Jerald Sheets (5 May 2008)
. \ Thomas Bätzler (5 May 2008)
. \ Rob Dixon (5 May 2008)
. \ Stephen Kratzer (5 May 2008)
. . \ Chas. Owens (5 May 2008)

11 msg	comparing kit names
2 msg	OT: help crle ruin my solaris :-(
6 msg	generating number ranges using rand function
1 msg	question on unblocking the signals
5 msg	howto simplfy this regex if ($string =~/^$match...
7 msg	how to reun perl script on other pc without hav...
14 msg	how to simplify this script
10 msg	displaying inline images in HTML email
15 msg	another help on input record separator clarity ...
2 msg	Perl Expect help

Subject:	Writing side of square
Group:	Perl-beginners
From:	Rodrigo Tavares
Date:	5 May 2008

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";

How I can to show the arrar like sides ?

[]'s

Faria

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

--
To unsubscribe, e-mail: beginners-unsubscribe
For additional commands, e-mail: beginners-help
http://learn.perl.org/