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

Re: Can I force strictness on included files?

by tlm (Prior)
on Jun 30, 2005 at 11:45 UTC ( #471273=note: print w/replies, xml ) Need Help??


in reply to Can I force strictness on included files?

This is not an answer to your question, but rather a related observation. Here's the relevant section of the docs for do (my emphasis):

  • do EXPR

    Uses the value of EXPR as a filename and executes the contents of the file as a Perl script. Its primary use is to include subroutines from a Perl subroutine library.
    do 'stat.pl';
    is just like
    eval `cat stat.pl`;
    except that itís more efficient and concise, keeps track of the current filename for error messages, searches the @INC libraries, and updates %INC if the file is found. … It also differs in that code evaluated with "do FILENAME" cannot see lexi≠cals in the enclosing scope; "eval STRING" does.
It may not be not entirely obvious, but the underlined sentence implies that, despite the similarity of the two constructs, with do 'stat.pl' strictures are not enforced, but they are with eval `cat stat.pl`.

In the following example, the file x.pl contains only the line $x = 1;

# y.pl use strict; use warnings; use diagnostics; do 'x.pl'; print 'do: ', +( $@ ? $@ : 'ok' ), "\n"; eval `cat x.pl`; print 'eval: ', +( $@ ? $@ : 'ok' ), "\n"; __END__ do: ok Variable "$x" is not imported at (eval 2) line 1 (#1) (F) While "use strict" in effect, you referred to a global variabl +e that you apparently thought was imported from another module, because something else of the same name (usually a subroutine) is exported + by that module. It usually means you put the wrong funny character o +n the front of your variable. eval: Global symbol "$x" requires explicit package name at (eval 2) li +ne 1.

So you'll need to use eval instead of do if you want strictures, but you'll have to check $@ yourself after the eval.

the lowliest monk

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2021-04-21 00:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?