On Thu, Nov 29, 2001 at 08:49:10PM -0500, Yanick wrote:
> On Thu, Nov 29, 2001 at 08:01:27PM -0500, Jeff 'japhy' Pinyan wrote:
> > On Nov 29, Yanick said:
> >
> > >> > perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//'
> > >> perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//' (Yanick)
> > >> perl -p0 -e'$n=y|\n||>>1;s/(.*\n){$n}//;s/\n.*//s' (Andrew)
> > >> perl -p0 -e'$n=1+y|\n||/2;/(.*\n){$n}/;$_=$+' (Yv2.0)
> >
> > perl -p0 -e'$n=1+y|\n||/2;($_)=/(.*\n){$n}/' (japhy)
>
> perl -p0 -e'1while($_)=/\n(.*)\n/s;$_=$1' (Yv3.0)
perl -p0 -e'$_=$1 while/\n(.*)\n/s' (Yv3.1)
Joy,
Yanick
--
eval $problem."
require 'yet another Perl hacker' " unless $trivial;
callsys; # surely the sys-admin knows Perl
wait; wait; wait; # why doesn't he answer?
listen PHONE, 0;$@=~s/^.*?(y.*?)in.*$/\u$1/; # argh! line noise!
warn $whine and $curse => "$@$;@_"; # *sigh* Plan B, then...
use CPAN;
