Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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
[MidLifeXis]: Not for a few years yet. Kids in school :-)
[LanX]: NQC
[MidLifeXis]: Is there internet access up there on the lakes? If I moved there I would like to be able to fish :-D
[LanX]: Not Quite Canada
[Discipulus]: have you been fired?!?
[LanX]: remote rules, I've been offered jobs in the US with the promise to stay outside
[MidLifeXis]: Nope. Just looking around, as there are multiple culture and business changes in the area I am in.
[MidLifeXis]: not yet, anyway. Who knows. Just do my best and whatever happens happens.
[LanX]: should be even easier for you
[Discipulus]: oh well we cant afford two monks fired in a day!

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (13)
As of 2017-03-23 12:40 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (286 votes). Check out past polls.