Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: Testing if Perl Code is Valid - but don't execute!

by ikegami (Patriarch)
on Aug 10, 2010 at 22:17 UTC ( [id://854152]=note: print w/replies, xml ) Need Help??


in reply to Re: Testing if Perl Code is Valid - but don't execute!
in thread Testing if Perl Code is Valid - but don't execute!

Update: I incorrectly remembered the question. The OP did not say the code is unstrusted. While perl -c can execute code, it won't affect the currently running script. Disregard the rest of the post if execute code without disrupting the current script it ok.


One possibility for your case is the switch -c. This sort-of does what you want in that it

No, it's possible to execute code when the script is still being compiled.

$ perl -c -E'BEGIN { say "owned" }' owned -e syntax OK

assuming you don't use modules with side-effects or have side-effects in BEGIN, UNITCHECK, or CHECK blocks. By shelling it out, you guarantee not to muck up local variables. Perhaps something like:

That should be "assuming you don't use use".

$ cat Module.pm package Module; use 5.010; say "owned"; 1; $ perl -c -e'use Module;' owned -e syntax OK

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2024-04-25 05:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found