Re^3: perl eval

... and 'Doh!' on /me.

Modify beginning at line 32 as follows:

        }
    print "Inside the sub at line 34: |$result|\n";
        return $result;
}

my $ result = egal($param);         # call the sub!
print "At line 39 (after the sub), \$result is: |$result|\n";
[download]

and, lo and behold the output, as above but with a difference after the uninit... :

...
Use of uninitialized value in concatenation (.) or string at 848064_xy
+z.pl line 22.

++++Inside the sub at line 34: |false|
At line 39 (after the sub), $result is: |false|
[download]

Comment on Re^3: perl eval Select or Download Code

Replies are listed 'Best First'.
Re^4: perl eval by paribasu (Initiate) on Jul 05, 2010 at 18:59 UTC
I dont want to call egal from the script itself. The name of the sub is coming through parameter and I just want to evaluate whatever is there in the parameter.	[reply]
Re^5: perl eval by johngg (Canon) on Jul 05, 2010 at 19:34 UTC
and I just want to evaluate whatever is there in the parameter That might end in tears! `use strict; use warnings; my $param = shift; eval $param; die $@ if $@;` [download] Let's see some files. $ perl spw848064 'system ls' reallyImportant.data spw848064 $ [download] You can see what's coming :-) $ perl spw848064 'system qw{rm -f reallyImportant.data}' $ [download] Oops! `<!--$ perl spw848064 'system ls' spw848064 $` [download] It might be worth doing a little sanity checking before evaling willy-nilly. Cheers, JohnGG	[reply] [d/l] [select]