Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

The Lighter Side of Perl Culture (Part III): Obfu

by eyepopslikeamosquito (Archbishop)
on Jan 23, 2005 at 06:15 UTC ( [id://424355]=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $A = eval q.@{[.."0,"x$A.qq|0]}|
    
  2. or download this
    1999/10/15 BooK    $A = eval q.@{[.."0,"x$A.qq|0]}|
    1999/11/04 BooK    $A =~ s/$A/$A+1/e
    ...
    2000/04/13 stefp   use AI;
                       incrémente la variable scalaire a  de 1 unité      
    +#  $a++
    2000/04/13 stefp   ${"A\0comme quoi perl n'ignore pas partout les \0"}
    +++
    
  3. or download this
    ${~$/&~$;&$^}++
    
  4. or download this
    y ccccd x s vvchr oct oct ord uc ave x s vvucve le
    s vvuc ave x s vvchr oct oct oct ord uc bve x eval
    
  5. or download this
    #!/usr/bin/perl -l
    s--@{[(gE^Ge)=~/[^g^e]/g]}[g^e]x((!!+~~g^e^g^e)<<pop).!gE-ge,
    s-[^ge^ge]-s,,,,s,@{[(g^';').(e^'?')]},(G^'/').(E^'|')^Ge,ge,
    print,s,(?<=/[^g^e])[^g^e][^g^e],$&^(G^'/').(E^'|')^gE,ge-ge
    
  6. or download this
    !$A+++!q!+++A$!
    
  7. or download this
    %average::; print probably not my average $A++
    
  8. or download this
    sub _ : lvalue { $A }; ++_();
    
  9. or download this
    #!perl -lp
    y/()^I /^I_/d+s@^I|(?<=\w)\D@($/="
    ...
    */${":"x/\G[+-]/}]*)#$2
    #;$+@eg;$_.=$/;y/
    / /s+chop
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlmeditation [id://424355]
Approved by rlb3
Front-paged by itub
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2024-03-28 19:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found