Re: Reading X lines at a time
Georg Moritz <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
From the keyboard of Georg Moritz [03.05.04,13:37]:
> From the keyboard of Georg Moritz [03.05.04,13:34]:
>
[..]
> >
> > $_=<>x$n
silly me, it was not about n-ification.. :-/
@_=map{scalar(<>)}(1..$X)
--
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s,/,($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e,e && print}