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
In reply to Re: Fun with caller()
by cristian
in thread Fun with caller()
by phroggy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |