Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Undefined JAPH

by ateague (Beadle)
on Aug 28, 2013 at 23:08 UTC ( #1051327=obfuscated: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
    {{{{THE:{{{{END:{{{{IS:{{{{THE:{{{BEGINNING:{{{{IS:{{{{THE:{{{{END{{{{
    ...
    ));
    __DATA__ _____________________________________________________________
    ,`````'X``````/\#`Toto, I've a feeling we aren't in Kansas anymore...`
    
  2. or download this
    eval((eval(join'',join'',map{unpack'C/(C.*/X/xa@)'}split/\n/,<<'MAGIC'
    "BC8D%5/.31420-A69=(#:*$+<@;?)&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{"
    ">DC95'A<?36;(%B&-#4*.=@8)$2+/0,17:$$''((())),,,1?_aacccdehknoppruuv{"
    ...
    MORE MAGIC
    ));
    undef->("Just another Perl hacker\n");
    
  3. or download this
    &Internals::SvREADONLY(\undef,0); undef=sub{print$_[0]; undef;};
    
    my $h = undef;
    $h->("Just another Perl hacker\n");
    
  4. or download this
    my $string = q|=pod
    =cut
    ...
    
    my $h = undef;
    $h->("Just another Perl hacker\n");
    
  5. or download this
    my $string = q|=pod
    =cut
    ...
    
    $string = join('', map{ uc chr( ord($_) ^ 64 ) } split(//, $string));
    # $string is $SPW&VTV!P$SSVUWTW!PVRYT%VTWUVRW%VQV#VSW!S!SSUVWRUUTQTTT&
    +T%T#TYUXR#UUW%VTVUVVV#RPSYR"SPRUW%VTVUVVV$SSWUWRV"WPWRWYV%VTWTR&U"UPS
    +$U"SPRUW%VTVUVVV"S$W"S
    
  6. or download this
    no warnings 'qw'; # shut up Perl... I'm a big boy now!
    my $chars = '';
    ...
    
    $chars = pack 'u', $chars;
    # $chars is ,`````'X``````/\#
    
  7. or download this
    my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X`````
    +`/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };
    
  8. or download this
    my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X`````
    +`/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };
    
    ...
    
    my $h = undef;
    $h->("Just another Perl hacker\n");
    
  9. or download this
    my $sub = q|sub{$a=<DATA>;pack("h*",join('',map{vec(unpack('u',$a),ord
    +($_),1)?chr(ord($_)^64):''}split//,$_[0]))};|;
    
  10. or download this
    my $sub;
    $sub .= join'',unpack'C/(C.*/X/xa@1)',q`"BC8D%5/.31420-A69=(#:*$+<@;?)
    +&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{`;
    ...
    
    __DATA__
    ,`````'X``````/\#
    
  11. or download this
    eval (( eval pack "A*", join '', map { unpack 'C/(C.*/X/xa@1)' }
    split /\n/, <<'SUB'
    ...
    
    __DATA__
    ,`````'X``````/\#
    
  12. or download this
    #!/usr/bin/perl 
    {{{{THE:{{{{END:{{{{IS:{{{{THE:{{{BEGINNING:{{{{IS:{{{{THE:{{{{END{{{{
    ...
    ));
    __DATA__ _____________________________________________________________
    ,`````'X``````/\#`Toto, I've a feeling we aren't in Kansas anymore...`
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1051327]
Approved by davido
Front-paged by kcott
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (15)
As of 2014-07-31 13:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (248 votes), past polls