Question

我在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' ,"/b ","$outfile","+","$_", "$outfile");
       system (@args);
       #system("copy /b $outfile+'$_' $outfile"); 
    }

}

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

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

我想知道，

1]如何使用上面的代码处理它们之间有空格的文件。如何“转义”文件名中的空格。

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

Answer 1

停止使用system()拨打可以使用便携式库的电话。 Perl有一个File::Copy模块，使用它而你不必担心这样的事情，你可以获得更好的操作系统可移植性。

Answer 2

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

尝试

"\"$_\""

和

"\"$outfile\""

Answer 3

system很少是正确答案，use 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 4

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

foreach (@files)

为：

foreach $file (@files)

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

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

Answer 5

在Windows中，你通常可以在文件名（和/或路径）周围加上双引号，允许使用特殊的字符，即“长文件名”。

C：\“我的长路径\这是一个file.mp3”

编辑：

这不起作用吗？

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

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

Answer 6

$ filename = ~s / \ / \ /;

文件名只是使用斜杠来引用空格

Answer 7

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

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

我一直在Windows上使用它。

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

7 个答案: