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}; 
}