James Sluka wrote:
> One more thing to try is to add a trailing space after the directory
> spec, as in;
> system qq{$prog "$dir " $dest}
> or
> my $cmd = qq{$prog "$dir " "$dest"};
>
> I did some quick tests with;
> ##########Perl code
> my $prog = 'c:\windows\desktop\some-batch.bat';
> my $dir = 'c:\windows\desktop\jim'; # no trailing backslash
> my $dest = 'thelabel';
>
> # both the directory and batch files do exist
> if (-e $prog) {print "prog found\n"} else {print "prog NOT found\n"};
> if (-d $dir) {print "dir found\n"} else {print "dir NOT found\n"};
>
> # Version 1, works
> system qq{$prog "$dir " $dest}; # quoted $dir in case blanks in path
> # and note the extra space in "$dir "
>
> # Version 2, works
> my $cmd = qq{$prog "$dir " "$dest"}; # note the extra space in "$dir "
> print "\n\nCMD ==", $cmd, "=\n";
> system "$cmd";
> # end Perl code
>
> ### some-batch.bat contains
> echo %1
> echo %2
> dir %1
>
> The perl code above fails if the trailing space after the dir spec is
> omitted. The space can be in the original variable or added when the
> command is created (as I did above).
That doesn't make any sense. There's already one space there why would
putting two there make a difference ? Mine worked with just one.
A trailing \ may make some change, but an extra space seems pretty
redundant.
This works fine for me:
if (-e $prog) { print "$prog found\n" } else { print "$prog NOT found\n" };
if (-d $dir) { print "$dir found\n" } else {
mkdir $dir or die; print "$dir NOT found created\n" };
# $dir =~ s/\//\\/g; # this is optional for me
system qq{$prog "$dir" $dest};
The bat file produces (for my version) :
%0 = E:/tmp/nvhotbackup.bat
%1 = "E:/tmp/backup"
%2 = thelabel
dir "E:/tmp/backup"
Volume in drive E is DATA120
Volume Serial Number is 0000-0E20
Directory of E:\tmp\backup
10/28/2005 10:51 AM <DIR> .
10/28/2005 10:51 AM <DIR> ..
0 File(s) 0 bytes
2 Dir(s) 7,019,872,256 bytes free
errorlevel = 0
cmdline = cmd /c "E:/tmp/nvhotbackup.bat "E:/tmp/backup" thelabel"
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
