Re^5: perl eval

[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.