Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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

by eyepopslikeamosquito (Chancellor)
on Jan 23, 2005 at 06:15 UTC ( #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
  6. or download this
  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@($/="
    / /s+chop

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://424355]
Approved by rlb3
Front-paged by itub
and a soft breeze sighs...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2017-04-24 05:33 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (433 votes). Check out past polls.