system function problem: help

[Graziella]

Hi,

I am working on my PC running Windows XP
I have these few lines of code:

$dir = "c:/Program\ Files/eclipse/eclipse/workspace/ura";
print "DIR: $dir\n";
$cmd = "$dir/etc/run.bat $dir/build/edu/umd/simfinder/Eval ";
system($cmd);

I am trying to write a script that calls java classes to be able to run an experiment.
When I exectute the above few lines of code:
the printing statement shows that $dir is defined with the path I wanted.
However, the system function does not work and the warning I get it:
Can't exec "crogram"
which tells me that when I call system, not the entire value of $dir is passed, but somehow only "crogram" is and of course that path does not exists.

Please help me.

Grazia

 

[ishnid]

Take out the backslash before the space in `Program Files'.

 

[Graziella]

I did it, but still the same problem

 

[TrojanWarBlade]

You will need to quote the string twice.
Try this:

$cmd = "\"$dir/etc/run.bat\" \"$dir/build/edu/umd/simfinder/Eval\" ";

The command is being split on the space in "Program Files".

Trojan.

 

[mikevh]

TrojanWarBlade is right.
But I'd suggest the qq() function to avoid the backslashed quotes.

$cmd = [b]qq([/b]"$dir/etc/run.bat" "$dir/build/edu/umd/simfinder/Eval"[b])[/b];

HTH

 

[TrojanWarBlade]

LOL

good shooting mikevh. I couldn't agree more.
It looks so much cleaner like that.


Trojan.

 

[Graziella]

thank you very much !
It works.

Grazia

 

[Graziella]

Now, similar problem:
@eval = `cd $dir_eval; ls *eval* | grep eval`;

would work in a regular Unix system, but with my Windows XP it is not:
@eval gets as value the stuff to teh right of = !

Maddening, the qq() do not work in this case ...

Grazia

 

[Graziella]

Guys, we have not solved the problem or I jsut messed up with your suggestions:

$dir = qq("c:/Program\ Files/eclipse/eclipse/workspace");
$cmd = "perl qq($dir/paraphrase-corpora/bin/getPrecisionRecall.pl) qq($dir_eval/$file) qq($dir/eclipse/workspace/paraphrase-corpora/simfinder/mySimFinderCorpus/TRAIN_DEV_TEST/trainingdata-dev20.txt)";
	system($cmd);

 

[tchatzi]

When you use paths on windows with perl it better to escape your backslashes with backslashes. This way you will not trouble yourself. I don't think that you are trying to right something portable, do you ?
so you first code should look like this.

$dir = "c:\\Program Files\\eclipse\\eclipse\\workspace\\ura";
print "DIR: $dir\n";
$cmd = "$dir\\etc\\run.bat $dir\\build\\edu\\umd\\simfinder\\Eval";
system($cmd);

Now what is the problem that have not solved?


``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[stevexff]

Grazia

You can use perl to get the same behaviour as

@eval = `cd $dir_eval; ls *eval* | grep eval`;

with

use strict;
use warnings;

my $dir_eval = [red]"C:\\Visual Studio Projects";[/red]  
opendir(EVAL, $dir_eval) or die "Can't open $dir_eval";
my @files = grep {/[red]dev[/red]/i} readdir(EVAL);
closedir(EVAL);

print join("\n", @files);

Just change the bits in red to your directory and your search string. This also avoids shelling out to another three commands.

 

[Graziella]

This is how I solved it.

I called my script with

perl launchEval.pl 'c:/Program\ Files/eclipse/eclipse/workspace/ura'

and inside my script I have:

$cmd = "perl 'c:/Program\ Files/eclipse/eclipse/workspace/paraphrase-corpora/bin/getPrecisionRecall.pl' 'c:/Program\ Files/eclipse/eclipse/workspace/ura/$file' 'c:/Program\ Files/eclipse/eclipse/workspace/paraphrase-corpora/simfinder/mySimFinderCorpus/TRAIN_DEV_TEST/trainingdata-dev20.txt'";

Notice the ' '.
I guess it is Windows XP and cigwyn together ...

Grazia