perl - 使用带空格的变量 Perl

Question

我目前正在做一个项目，但我遇到了一个大问题。我有一些名字中有空格的图片，我想做一个蒙太奇。问题是我不能重命名我的图片，我的代码是这样的:

$pic1 = qq(picture one.png);
$pic2 = qq(picture two.png);

my $cmd = "C:\...\montage.exe $pic1 $pic2 output.png";

system($cmd);

但由于空格，montage.exe 不起作用。如何在不重命名所有图片的情况下执行我的代码？

非常感谢您的回答!

Answer 1

您可以在传递给系统的字符串中正确引用文件名，如@Borodin 在他的回答中所示。类似于:system("montage.exe '$pic1' '$pic2'")

然而，更可靠和更安全的解决方案是将参数作为系统调用中的额外参数传递给 montage.exe:

system('montage.exe', $pic2, $pic2, 'output.png')

现在您不必担心嵌套正确的引号，或担心包含意外字符的文件。这不仅是更简单的代码，而且它避免了恶意注入(inject)问题，如果这些文件名来自受污染的源。有人可以输入 | rm *，但您的系统调用不会为您删除所有文件。

此外，在现实生活中，您可能不会为每个文件名设置一个单独的标量变量。你会把它们放在一个数组中。这使您的系统调用更加容易:

system('montage.exe', @filenames, 'output.png')

这不仅 super 简单，而且避免了命令行太长的陷阱。如果您的文件名有很好的长路径(可能是 50-100 个字符)，Windows 命令行将在大约 100 个文件后超过最大命令长度。通过 system() 而不是在一个大字符串中传递参数避免了这一限制。