Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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
    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
Node Status?
node history
Node Type: perlmeditation [id://424355]
Approved by rlb3
Front-paged by itub
help
Chatterbox?
[shmem]: Lady_Aleena: what editor are you using, on what platform?
[Lady_Aleena]: shmem, geany on Debian jessie.
[shmem]: some experience with vim?
[Lady_Aleena]: None
[shmem]: I don't know geany, and don't know whether it has support for ctags.
[Lady_Aleena]: ctags?
[shmem]: ctags is a program which (recursively) extracts the symbols from source and stores them in a one-file database. This allows you to query the locations where these symbols (e.g. a subroutine name) are used anywhere in the source code tree...
[shmem]: ...from inside the editor.
[shmem]: apt-get install exuberant-ctags
[Lady_Aleena]: I think I heard vim has a big learning curve.

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2017-04-27 12:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (505 votes). Check out past polls.