#!/usr/bin/perl


go ahead... be a heretic
	PerlMonks

#!/usr/bin/perl

by BBQ (Deacon)

on Dec 30, 1999 at 21:33 UTC ( #1602=obfuscated: print w/replies, xml )

Need Help??

      %A=('r'=>"\n","\t"=>'#','/'=>
     's','f'=>'p',"b"=>'n');@C=qw (e
    ! r/ / e );foreach $k (sort keys
   %A){ @B=(" ",'u','i',"\b",'l');$s
  .=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
 ($x==1){$t=$k.$B[$x-1].$A{$k};}#ops 
} print$A{r}.$s;#i h8 left over \s's
[download]

Comment on #!/usr/bin/perl Download Code

Replies are listed 'Best First'.
RE: #!/usr/bin/perl by BBQ (Deacon) on Jan 09, 2000 at 07:00 UTC
Hey vroom! That's mine! :)	[reply]
RE: RE: #!/usr/bin/perl by vroom (His Eminence) on Jan 09, 2000 at 09:15 UTC
Oops... sorry BBQ I needed something to start the obfuscated code section with and just copied it... forget to go into the database and change its ownership though. It's done now though...	[reply]
RE: RE: RE: #!/usr/bin/perl by BBQ (Deacon) on Apr 17, 2000 at 06:02 UTC
heh... n/p! I'm actually kinda proud I made it 1st into the obfuscated code bin. :o) cheers	[reply]

Back to Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: obfuscated [id://1602]
Approved by erzuuli
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chanting in the Monastery: (4)

As of 2023-02-02 09:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Results (17 votes). Check out past polls.

Notices^?