Re: [Fun With Perl] One of those fancy .sig files

[Christian Borup <borup@borup.com>]

Michael G Schwern wrote:

> I really don't want to go out into the muggy night to hop a subway
> home... so I'm procratinating.
>
> On Tue, Jun 08, 1999 at 07:05:14AM +0100, Richard Proctor wrote:
> > On Mon 07 Jun, Vicki Brown wrote:
> > ># At 12:53 -0800 2/12/99, my co-worker wrote:
> > >> I'm not going to actually try to figure this out, but, um:
> > >>
> > >>
> > >> #!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
> > >> $^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
> > >>  00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
> > >> rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
> > >>
> > >>                                                  ^
> > >>                                                  |
> > >>                                                  why does it even *see*
> > >> the print statement?
>
> $^ = q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
>  00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
> rw} >;  ,
>
> $0=q,$, ,
>
> ($_=$^) =~ y,$/ C-~><@=\n\r,-~$:-u/ #y,d ,
>
> s,(\$.),$1,gee ,
>
> print

I got this far by using the Deparse backend for the compiler, with the "-p" parameter. Very neat btw.
Cheating I know, but hey - hacker know your tools!

-  Borup


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org