Xref: utzoo alt.sources:1569 comp.lang.perl:574
Path: utzoo!mnetor!tmsoft!torsqnt!jarvis.csri.toronto.edu!cs.utexas.edu!texbell!splut!jay
From: jay@splut.conmicro.com (Jay "you ignorant splut!" Maynard)
Newsgroups: alt.sources,comp.lang.perl
Subject: Re: Version of id(1).
Message-ID: <0-H+Z_@splut.conmicro.com>
Date: 6 Mar 90 07:31:47 GMT
References: <426@clover.warwick.ac.uk> <2964@jato.Jpl.Nasa.Gov> <1990Mar2.210209.11209@iwarp.intel.com> <2969@jato.Jpl.Nasa.Gov>
Reply-To: jay@splut.conmicro.com (Jay "you ignorant splut!" Maynard)
Organization: Confederate Microsystems, League City, TX
Lines: 20

In article <2969@jato.Jpl.Nasa.Gov> lwall@jato.Jpl.Nasa.Gov (Larry Wall) writes:
>That's not short.  This is short:         :-)
>
>#!/usr/bin/perl
>@n=('pwu','grg');sub n{local($n)=eval"get$n[$_[1]]id(\$_[0])";$n&&"($n)";}sub nm
>{$a-$b;}@gr=split(' ',$();$g=shift(@gr);$\="\n";print"uid=$<",&n($<)," gid=",$g,
>&n($(,1),(" euid=$>".&n($>))x($<!=$>),(" egid=".$)+0 .&n($),1))x($(!=$)),
>(" groups=".join(',',sort nm grep(($_.=&n($_,1))||1,@gr)))x($#gr>=0);
>
>Though I'll admit readability suffers slightly...

main() {
	puts("Good God. What next - an Obfuscated Perl Contest??");
}

-- 
Jay Maynard, EMT-P, K5ZC, PP-ASEL   | Never ascribe to malice that which can
jay@splut.conmicro.com       (eieio)| adequately be explained by stupidity.
{attctc,bellcore}!texbell!splut!jay +----------------------------------------
         "Klein bottle for sale. Inquire within." - Charles Hannum