Re: [FWP] Sideways Perl

[Tushar Samant <D@i-works.com>]

>Whoops.  It just goes to show that in Perl, you should always check to see
>if something has been done.

No, the rule is to reinvent always, but do it in a cruder and more baroque
way. Here's an old piece of code--I *think* it works ...

  for (@l = map {chomp; $m = length if $m < length; $_} <>) {
    undef substr($_.= " "x$m,$m)
  } print map reverse."\n", reverse map {join "", map chop, @l} 1..$m

--
Tushar Samant
~
~
:wq


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