Perl图片库问题

Question

我试图建立一个图片库。我使用Perl来获取目录中的图像列表并显示它们。这些图像都是不同的高度和宽度。该脚本将获取图像名称，查找每个图像的宽度和高度，并将其显示在页面上，以及页面的其余HTML部分。我的图像是1.jpg，2.jpg，3.jpg ... 15（现在，许多更多将在稍后添加）。

我的问题是当我需要脚本来生成图像名称，它停止获取图像的尺寸。如果我对图像进行了严格编码，它可以正常工作并告诉我尺寸。

这是我有什么（我知道这可能是粗糙...）

#!/usr/bin/perl 

use Image::Magick; 
my $magick = Image::Magick->new; 

opendir(DIR, "./images/"); 
@images = readdir(DIR); 
close(DIR); 

print "Content-type: text/html\n\n"; 

foreach $file (@images) { 
    $magick->Read('./images/$file'); 
    my $width = $magick->Get('width'); 
    my $height = $magick->Get('height'); 
    print "<img src=\"images/$file\" width=\"$width\" height=\"$height\">\n"; 
} 

如果我改变$magick->Read('./images/$file');到$magick->Read('./images/1.jpg');它的工作原理。当然，它会显示1.jpg 15次，但它可以显示宽度和高度。任何想法，为什么这是？我假设我错过了一些东西，但是我一整天都在努力。

谢谢。

Answer 1

你的主要问题是单引号字符串不能插入变量。您正在查找文件名为$image的图像，但未使用变量$image的值。而不是'

---

此外

使用"，你没有做任何事情来检查文件名实际上代表图像或URL编码的名称，当你把它变成了HTML的URL。

Answer 2

如前所述，readdir将返回文件和目录名称，以及伪目录.和..。将文件名附加到目录名称也存在问题。

最好使用File::Spec来操作文件路径，以避免此类错误，并且您应该使用-f文件测试来放弃所有目录名称。

下面是一个例子

#!/usr/bin/perl 
use strict; 
use warnings; 
use 5.010; 
use autodie; 

use File::Spec::Functions qw/ catfile /; 
use Image::Magick; 

my $dir = 'images'; 

print "Content-type: text/html\n\n"; 

opendir my ($dh), $dir; 

while (my $node = readdir $dh) { 

    my $file = catfile($dir, $node); 
    next unless -f $file; 

    my $magick = Image::Magick->new; 
    $magick->Read($file); 
    my $width = $magick->Get('width'); 
    my $height = $magick->Get('height'); 

    print qq{<img src="$file" width="$width" height="$height">\n}; 
}