How to resolve parameter read from text file in perl script

[Gancy]

Hi All,
I have a perl script which reads parameters from text file and builds
the command line string for another perl script. and i intend to
execute the same with systm command.

parameter file would look Something like this

Parameter file:
description=1
log=0
outputdir=~gancy/testsource
scandir=pwd

perl script reads this and builds commnad line and calls the system
command.

if i print the string would look like
print $CmdLine;

perl BinaryParser.pl -d ~gancy/testsource pwd

system("$CmdLine");

but the problem is system command does not resolve ~ and pwd.

I have tried same in C, it works exactly as i want. Even i tried to
fork antoher process.

any suggestions

Thanks
Ganesh Tiwari

 

[Gunnar Hjalmarsson]

I have a perl script which reads parameters from text file and builds
the command line string for another perl script. and i intend to
execute the same with systm command.

print $CmdLine;

perl BinaryParser.pl -d ~gancy/testsource pwd

system("$CmdLine");

but the problem is system command does not resolve ~ and pwd.

Why are you using system() to invoke another Perl script? Why not

@ARGV = qw(-d ~gancy/testsource pwd);
do 'BinaryParser.pl';

or to also check for errors

defined do 'BinaryParser.pl' or die $!;

 

[nobull]

Why are you using system() to invoke another Perl script?

He is using it to resolve ~.

 

[nobull]

if i print the string would look like
print $CmdLine;

perl BinaryParser.pl -d ~gancy/testsource pwd

system("$CmdLine");

but the problem is system command does not resolve ~ and pwd.

What do you mean by 'resolve pwd'? The string 'pwd' does not contain
any shell metacharacters.

I have tried same in C, it works exactly as i want.

Works here for me with perl5.6.1 and 5.8.5 on Linux.

What's your perl -V ?

Have you read 'perldoc -q tilde' ?

 

[Gunnar Hjalmarsson]

He is using it to resolve ~.

Aha, thanks!

So, a new attempt at a pure Perl solution:

use FindBin '$Bin';
@ARGV = qw(-d ~gancy/testsource pwd);
map { s#~#/home/#; s/pwd/$Bin/ } @ARGV;
do 'BinaryParser.pl';