Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Fun with caller()

by phroggy (Monk)
on May 28, 2005 at 22:45 UTC ( [id://461420]=obfuscated: print w/replies, xml ) Need Help?? 

#!/usr/bin/perl
use strict;
use warnings;
sub JAPH

{ Just    ();}sub      Just
{ another ();}sub      another
{ Perl    ();}sub      Perl
{ hacker  (",\n");}sub hacker

{ print((join' ',map{(split'::',(caller(3-$_))[3])[1]}(0..3)),@_);}&JA
+PH;

[download]

Replies are listed 'Best First'.
Re: Fun with caller()
by cristian (Hermit) on May 30, 2005 at 14:27 UTC 
    
ja ja you like caller.

This example is for explanation the obfus code

#!/usr/bin/perl

sub Just_another::Perl_hacker{(caller(0))[3]} 
#caller = procedure name => Just_another::Perl_hacker

$_=Perl_hacker Just_another; 
#$_=Just_another::Perl_hacker stored

~s/_|::/ /g; 
#replace :: and _ for spaces on $_

print; 
#printing $_ => sub name clean

    [download]
[reply]
[d/l]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://461420]
Approved by ghenry
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others admiring the Monastery: (4)
As of 2024-04-24 13:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found