我在Windows上使用Perl(Active Perl).我有一个perl程序来整理当前文件夹中的文件,并使用使用system()内部调用的dos copy命令将它们连接起来...
当我执行时,这会给出一个dos错误,说"系统找不到指定的文件".它与我拥有的文件名中的空格有关.
这是perl代码: -
@files = glob "*.mp3";
$outfile = 'final.mp3';
$firsttime = 1;
foreach (@files)
{
if($firsttime == 1)
{
@args = ('copy' ,"/b ","$_","+","$outfile", "$outfile");
system (@args);
#system("copy /b '$_'+$outfile $outfile");
$firsttime = 0;
}
else
{
@args = ('copy' ,"/b ","$outfile","+","$_", "$outfile");
system (@args);
#system("copy /b $outfile+'$_' $outfile");
}
}
Run Code Online (Sandbox Code Playgroud)
glob返回当前文件夹中的文件名数组,这些文件名之间有空格,因此数组元素之间有空格.当我使用系统(...)使用"$ _"对这些数组元素执行我的复制命令时,如上所示,它给出了如上所述的错误.
我尝试了几种可以调用系统的方法(...),但没有任何成功.
我想知道,
1]如何使用上面的代码处理它们之间有空格的文件.如何"逃避"文件名中的空格.
2]在Perl中实现相同的任何替代解决方案.(简单欢迎..)