我在Windows上使用Perl(Active Perl).我有一个perl程序来整理当前文件夹中的文件,并使用从内部调用的dos copy命令将它们连接起来使用system()…
当我执行时,这会给出一个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',"$outfile"); system (@args); #system("copy /b $outfile+'$_' $outfile"); } }
glob返回当前文件夹中的文件名数组,这些文件名之间有空格,因此数组元素之间有空格.当我使用系统(…)使用“$_”对这些数组元素执行我的复制命令时,如上所示,它给出了如上所述的错误.
我想知道,
1]如何使用上面的代码处理它们之间有空格的文件.如何“逃避”文件名中的空格.
2]在Perl中实现同样的任何替代解决方案. (简单的欢迎..)