Re: [FWP] Sideways Perl

[Zak McGregor <zak@mailgate.net>]

On Oct 11, Ronald J Kimball explained earnestly:

> On Mon, Oct 11, 1999 at 09:54:33PM +0200, Zak McGregor wrote:
> >   for (@l = map {chomp; $m = length if $m < length; $_} <>) {
> >     print undef substr($_.= " "x$m,$m)
> >   } print join "\n", reverse map {join "", map chop, @l} 1..$m 
> > 
> 
> Why do you print undef?

Ooops - I was trying to decipher the mysteries in the code, and just
didn't remove it.

Ciao

--
+======================+======================================
|Zak McGregor	       |	  satisfaction guaranteed
|Infoline South Africa |	  or you are one picky bastard	 
+======================+======================================


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe