is it possible to evaluate?

[ns705]

Hi,

can you please help me with one problem?

I read from some file the lines looking like
/dir1/dir2/$dirX/dir3/$dirY/filename.
$dirX and $dirX are some variables, they are passed to perl program as input parms.
In which way can I set the variable $path=the above value with substitution of $dirX and $dirY?
I attempted to use eval command but failed with it.

Is it possible to eval it, as it can be done in ksh script?

Thank you in advance.

Anta

 

[mikevh]

Following works. "$dirX" and "$dirY" are replaced in $path by the values passed in on the command line.

#!perl
use strict;
use warnings;

my ($dirX, $dirY) = (shift, shift);
die qq(dirX and dirY must be specified on command line.\n)
    unless $dirX && $dirY;

my $pathstring = <DATA>;
chomp $pathstring;

my $path;
eval '$path = "' . $pathstring . '"';

print qq(\$path = $path\n);

__DATA__
/dir1/dir2/$dirX/dir3/$dirY/filename

I'm not great when it somes to eval, though. Perhaps someone else can suggest a better solution.

 

[ns705]

Thank you, mikevh!

Yes, it works, and it does what I need and what I have expected.
Thank you for your help.

Kind regards,
Anta