Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

In the BEGINning

by liz (Monsignor)
on Dec 06, 2003 at 17:59 UTC ( #312789=obfuscated: print w/replies, xml ) Need Help??

sub BEGIN{@_{qw{BEGIN CHECK INIT END}}=qw{hacker Perl another Just};for my$a(keys%_){*{$a}=sub{ "$_{$a} $_[0]"}}sub CHECK{sub INIT{sub END {chop ($_=END(INIT(CHECK(BEGIN()))));print;print$/}}}}
Just goes to show that subs are not always what they seem. ;-)

Liz

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://312789]
Approved by gmax
Front-paged by Itatsumaki
help
Chatterbox?
[Tanktalus]: choroba: do I have to move? :)
Discipulus has too much roots in a 2770 yo town
[marioroy]: I want a job after completing MCE in about a week. But feel that I've moved to the wrong place.
[choroba]: I fear so. We have offices in Prague, Brno, Saigon and San Francisco.
[Discipulus]: choroba if let your company to hire Tanktalus and marioroy ... what a big fishing!
[Discipulus]: i choice prague!!
[choroba]: 1200 years is enough :-)
[marioroy]: Lady_Aleena my $ans = qx! find . -name "*.pl" -exec ls -l {} \\; !;
[Tanktalus]: My basic problem right now is that if I were willing to move, I could be back in Toronto with a pay raise. We have a number of reasons for not wanting to do that.
[marioroy]: I had to backslash the backslash inside qx.

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2017-04-23 20:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.