如何处理带空格的文件名？

Question

我在 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"); 
    }

}

glob 返回我当前文件夹中的文件名数组，这些文件名之间有空格，因此数组元素之间有空格。当我使用 system(...) 使用“$_”对这些数组元素执行复制命令（如上所示）时，它会给出如上所述的错误。

我尝试了几种可以调用系统（...）的方法，但没有成功。

我想知道，

1] 如何使用上面的代码在文件之间有空格的文件上进行此操作。如何“转义”文件名中的空格。

2] Perl 中实现相同目标的任何替代解决方案。 （简单的欢迎..）

Answer 1

$文件名=~s/\ /\ /;

无论文件名是什么，只需使用斜杠来引用空格

Answer 2

内置的“重命名”命令还可以移动文件：

    rename $source, $destination;   # ...and move

我一直在 Windows 上使用它。

Answer 3

停止使用 system() 进行可以通过可移植库完成的调用。 Perl 有一个 File::Copy 模块，使用它来代替，你不必担心类似的事情再加上您可以获得更好的操作系统可移植性。

Answer 4

您的代码不会在文件名周围添加任何引号。

尝试

"\"$_\""

并

"\"$outfile\""

Answer 5

system 很少是正确的答案，使用 File::Copy ;

连接所有文件：

use File::Copy;
my @in = glob "*.mp3";
my $out = "final.mp3";

open my $outh, ">", $out;
for my $file (@in) {
    next if $file eq $out;
    copy($file, $outh);
}
close $outh;

Answer 6

当您尝试访问内部块内的变量 $_ 时，可能会出现问题。最安全的方法是将：更改

foreach (@files)

为：

foreach $file (@files)

然后对@args进行必要的更改，并转义双引号以将它们包含在字符串中。

@args = ('copy' ,"/b ","\"$file\"","+","$outfile", "$outfile");
...
@args = ('copy' ,"/b ","$outfile","+","\"$file\"", "$outfile");

Answer 7

在 Windows 中，您通常可以在文件名（和/或路径）两边加上双引号，以允许特殊字符，即“长文件名”。

C:\"我的长路径\这是一个文件.mp3"

编辑：

这不起作用吗？

system("copy /b \"$_\"+$outfile $outfile");

（注意字符串中的双引号而不是单引号）