Re^2: How to pass command line arguments with file names containing spaces

[MVRS]

Thank you very much for the reply HDB , sorry i jus made a sample code , but i again make system calls and other perl operations as in the following code , please suggest me in this , and am running this code in linux environment

#!/usr/bin/perl

use strict;
use warnings;

my $re;
my $qu;
 $re = $ARGV[0];
 $qu = $ARGV[1];

print $re,"\t",$qu,"\n";
$match = system(mer -maxmatch "$re" "$re");
$camp = system(mer -cods "$re" "$qu");
system (perl ma.pl "$re" "$qe");

[Corion]

This is not even valid Perl code, as it does not compile.

Please take care to test your code and to reduce it to the actual problem. Maybe you want to review system? It shows how to use that function. Also, you may want to learn about quoting, and the difference between strings (what system takes as arguments) and bare, unquoted words in Perl (what perl takes as commands in a program.

[MVRS]

corion as i could nt copy my exact code so i made some typo errors , and this code runs successfully with file names with out white spaces , but i want to make it possible to run with file names having spaces in the arguments also , my problem here is to run with filenames having spaces and i need to use these arguments for other system calls also , in which it is giving problem

#!/usr/bin/perl

use strict;
use warnings;

my $re;
my $qu;
 $re = $ARGV[0];
 $qu = $ARGV[1];

print $re,"\t",$qu,"\n";
$match = system qq(mer -maxmatch "$re" "$re");
$camp = system qq(mer -cods "$re" "$qu");
system qq(perl ma.pl "$re" "$qe");

[Corion]

So, where is the problem?

Is the problem that $ARGV[0] is set up in the wrong way? Then the problem is not within Perl but how you call your program. Please review Re: How to pass command line arguments with file names containing spaces and Re: How to pass command line arguments with file names containing spaces, which address this situation.

Is the problem that the program you are calling (mer) does not receive the parameters correctly? Then you need to compare how you start the program manually to how you start it from Perl.

[hdb]

You might also want to look at String::ShellQuote.