Question

尝试两天，将ExifTool的所有可读（非二进制）输出保存到哈希中，并将文件路径作为键：

use strict;
use warnings;
use Image::ExifTool;
use Data::Types qw(:all);
use v5.28;

my @directories = ("/some/filepath/to-pictures");
my @suffixes = qw(jpg jpeg gif png raw svg tif tiff psd orf nef eps cr2 arw);

my %file_catalog = ();
while (my $folder = shift @directories) {

    opendir(DirHandle, "$folder") or die "Cannot open $folder\n";
    my @files = readdir(DirHandle);
    closedir(DirHandle);

    foreach my $file (@files) {
        my $file_string = "$folder/$file";
        if (-f $file_string) {
            my $sep_pos = rindex($file, ".");
            my $end_chars = -($sep_pos - (length $file) + 1);
            my $suffix = substr $file, $sep_pos + 1, $end_chars;
            if (grep ( lc $suffix, @suffixes)) {
                my $exif_tool = new Image::ExifTool;
                my $info = $exif_tool->ImageInfo($file_string);
                say "Datei: $file_string";
                %file_catalog = ($file_string => $info);
                foreach (keys %{$info}) {
                    say "Key: $_ => Value: $$info{ $_ }";
                }
            }
        }
    }
}

也无法正常工作：%file_catalog = ($file_string => %{$info});。

但是我在%file_catalog中得不到一张图片的信息-您能向我解释一下吗？

或者像我在repo的提交历史中看到的那样，取消引用（"Can't use string as a HASH ref while "strict refs" in use"）或存储（"Odd number of elements in hash assignment"）会遇到很多问题。

当然，并非所有图像都具有相同的exif信息，每个图像都提供不同的key-> values。

对于测试输出：

my $hash_size = keys %file_catalog;
print "\n---------------------------\n";
print "In 'file_catalog'-hash recorded image-path (key)-/ exif-data (value)-hashes: ", $hash_size;
print "\n---------------------------\n";

my ($i, $j) = 0;
foreach my $key (sort keys %file_catalog) {
    $i++;
    printf "%s. key: $key\n", uc chr($i + ord('A') - 1 );
    foreach my $inner_key (keys %{$file_catalog{ $key }}) {
        $j++;
        say "$j. inner key: $inner_key: $file_catalog{$key}{$inner_key}";
    }
}

也许有人可以帮助我理解。还有可能比我的新手代码更好的构造。

Answer 1

要将新的键值添加到哈希中，您需要：

$file_catalog{$file_string} = $info;

Perl：将哈希引用保存在Image :: ExifTool

1 个答案: