Print text vertically

I saw a rather longish program in comp.lang.perl.misc by a fellow Perl trainer and author, and decided that its 15 lines looked far too Perl4-ish and too BASIC-like. So I wrote it as native Perl. It came out shorter than I thought, so I brought it here for the snippets.

chomp(my @lines = <>);
print join(" ", map { s/(.)//s ? $1 : " " } @lines), "\n" while length
+ join "", @lines;
[download]

Comment on Print text vertically Download Code

Replies are listed 'Best First'.
Re: Print text vertically by boo_radley (Parson) on Dec 14, 2000 at 21:43 UTC
here's my fledlging japh based on the above. Please be gentle :) `@lines=("japh","unea","sorc","ttlk"," h e"," e r"," r "); print join("", map { s/(.)//s ? $1 : " " } @lines), "\n" while length +join "", @lines;` [download] I think I'm starting to understand map. It is a wierdness.	[reply] [d/l]