Re^4: perl eval

[paribasu]

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.

[johngg]

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 $@;

Let's see some files.

$ perl spw848064 'system ls'
reallyImportant.data  spw848064
$

You can see what's coming :-)

$ perl spw848064 'system qw{rm -f reallyImportant.data}'
$

Oops!

<!--$ perl spw848064 'system ls'
spw848064
$

It might be worth doing a little sanity checking before evaling willy-nilly.