Re: Writing side of square

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:	Re: Writing side of square
Group:	Perl-beginners
From:	Chas. Owens
Date:	5 May 2008

On Mon, May 5, 2008 at 11:18 AM, Stephen Kratzer <kratzers> wrote:
snip
> for (1..$n) {
> if ($_ == 1 || $_ == $n) {
> print "*" x $n, "\n";
> }
> else {
>
> print "*", " " x ($n - 2), "*\n";
> }
> }
snip

Its time to play TIMTOWTDI:

#!/usr/bin/perl

use strict;
use warnings;

my $n = 10;
my $i = $n - 2;
print "*" x $n, "\n", (map "*"." " x $i."*\n", 1 .. $i), "*" x $n, "\n";
print "*" x $n, "\n", ("*", " " x $i, "*\n") x $i, "*" x $n, "\n";

--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.

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