$out_dir .= '\\' if substr($out_dir, -1) ne '\\';
system(xcopy => $und_dbm, $out_dir, '/r', '/y', '/i')
Perl will add quotes around the args if necessary. Remember, the quotes aren't part of the argument, they are there to allow the shell to identify the arguments. That's not need when you use the multiple argument form of system since Perl uses the commas to identify the arguments.
|