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

Re (tilly) 1: How does strict work?

by tilly (Archbishop)
on Feb 17, 2001 at 09:53 UTC ( [id://59094]=note: print w/replies, xml ) Need Help??


in reply to How does strict work?

If you check in perlvar you will find out that $^H is an internal and highly magical variable. It is just a collection of flags with rather special scoping semantics. What strict does is flip the appropriate bits to what they need to be to cause certain things to (not) be checked when you want them to (not) be.

If it helps, I am willing to treat it as black magic and hope that the phase of the moon is right... :-)

UPDATE
What I suspect (verifying it would take some research) is happening is that $^H is a global variable which the parser is auto-localizing as it goes through blocks. So within strict you write to the global, but within the parser the effect of that modification is scoped to just the current block. Therefore the part of the user code that is affected is apparently lexically scoped.

A couple of other pieces of magic though. First of all when you see an eval, Perl remembers what the correct value of $^H needs to be when it is called. Secondly within a file it needs to essentially do local $^H = $^H; while when it goes out and compiles another file it would have to do local $^H = 0;.

So the magic isn't all that magic, it just looks mysterious because of when it is happening. If you want to test this explanation, each of the following tests another aspect of its behaviour:

perl -e 'print $^H' perl -e 'use strict; print $^H' perl -e 'use strict; no strict; print $^H' perl -e 'use strict; {no strict; print $^H}' perl -e 'use strict; BEGIN {no strict; print $^H}' perl -e 'use strict; {no strict; BEGIN{ print $^H}}'
(People on windows may need to switch quotes.)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://59094]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2024-03-19 02:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found