Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2016-02-09 00:07 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (291 votes), past polls