[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] Sideways Perl
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?
Ronald
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe