Fun with caller()

[phroggy]

#!/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;

[cristian]

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