8

我在 Windows 上使用 Perl（Active Perl）。我有一个 perl 程序来 glob 当前文件夹中的文件，并使用从 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(...) 使用“$_”对这些数组元素执行复制命令时，如上所示，它给出了错误。

我尝试了几种可以调用 system(...) 的方法，但没有成功。

我想知道，

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

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

4

7 回答 7

11

停止使用system()可通过便携式库完成的调用。Perl 有一个File::Copy模块，使用它来代替，你不必担心这样的事情，而且你可以获得更好的操作系统可移植性。

于 2010-11-26T15:24:39.687 回答
9

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

尝试

"\"$_\""

和

"\"$outfile\""
于 2010-11-26T14:17:01.403 回答
7

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;
于 2010-11-26T15:25:59.090 回答
1

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

foreach (@files)

至：

foreach $file (@files)

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

@args = ('copy' ,"/b ","\"$file\"","+","$outfile", "$outfile");
...
@args = ('copy' ,"/b ","$outfile","+","\"$file\"", "$outfile");
于 2010-11-26T14:23:14.810 回答
1

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

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

编辑：

这不起作用吗？

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

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

于 2010-11-26T14:17:33.000 回答
0

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

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

于 2017-02-28T07:30:59.707 回答
0

内置的“重命名”命令也会移动文件：

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

我一直在 Windows 上使用它。

于 2019-12-28T23:43:43.363 回答