Opened by Graf Herschel at 2015-06-05 12:54
Einen schönen guten Tag
Ich habe schon wieder ein Verständnisproblem. Jedesmal wenn ich von C auf Perl umsteige, steige ich aus. Ich könnte aus der Haut fahren.
ImageInfo() liefert eine referenz auf irgendein hash. Wo das hash deklariert wird, weiß ich zwar nicht, es funktioniert.
Ich will genau diese hash_referenz.
Leider funktioniert das nicht.
Übergebe ich mit \$hash nicht einen pointer, der in fpic_exif_get() auf ein hash referenziert wird?
Vielleich erbarmt sich jemand meiner
Gruß
Last edited: 2015-06-05 13:09:11 +0200 (CEST)
Ich habe schon wieder ein Verständnisproblem. Jedesmal wenn ich von C auf Perl umsteige, steige ich aus. Ich könnte aus der Haut fahren.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
sub fpic_exif_get
{
my($fn,$hash) = @_;
my $exf = new Image::ExifTool;
$hash = $exf->ImageInfo("$fn","EXIF:*");
foreach (keys %$hash)
{
print("$_ => $hash->{$_}\n)";
}
return 1;
}
ImageInfo() liefert eine referenz auf irgendein hash. Wo das hash deklariert wird, weiß ich zwar nicht, es funktioniert.
Ich will genau diese hash_referenz.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
sub fpic_exif_ls
{
my $hash;
my $fn = "/mnt/images/plane.png";
return 0 if(!fpic_exif_get("$fn",\$hash));
foreach (keys %$hash)
{
print("$_ => $hash->{$_}\n)";
}
}
Leider funktioniert das nicht.
Übergebe ich mit \$hash nicht einen pointer, der in fpic_exif_get() auf ein hash referenziert wird?
Vielleich erbarmt sich jemand meiner
Gruß
Last edited: 2015-06-05 13:09:11 +0200 (CEST)