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

Your evaluate() routine does not work.

by schwern (Scribe)
on Jul 24, 2005 at 21:16 UTC ( #477619=note: print w/replies, xml ) Need Help??

in reply to Stopping execution of an eval statement

While this isn't what you asked, your evaluate() routine only works in this case by accident of positioning. When it eval's your code, it can only see the lexical $x because the evaluate() subroutine happens to be in the same scope as the original declaration. If you moved the evaluate() subroutine above $x's declaration or out of scope entirely (say, into a library file) things break.

#!/usr/bin/perl -w use strict; sub evaluate{ my $perl=shift || return; print "evaluate\n$perl\n\n"; my $rtn=eval($perl); if($@){return $@;} return $rtn; } my $x=42; my $evalstatement=q| $x; |; print evaluate($evalstatement);
evaluate $x; Global symbol "$x" requires explicit package name at (eval 1) line 2.

For lexical purposes the code is executed at the point eval() is run, not where evaluate() is called. You can't safely use lexicals in code eval'd somewhere else which means you can't safely have a subroutine which takes any ol code as an argument and eval's it.

Also your eval code would be a lot simpler with q{}.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://477619]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2018-05-23 11:41 GMT
Find Nodes?
    Voting Booth?