Opened by Graf Herschel at 2015-06-05 12:54
User since
2006-01-27
3872 Artikel
HausmeisterIn
2006-01-27
3872 Artikel
HausmeisterIn
Hi,
oder man verwendet den Ansatz des Gebens und Nehmens. D.h. man gibt den Dateinamen als Argument an die Subroutine und erhält die Hash-Referenz als Rückgabewert aus der Sub.
Außerdem vermeidet dieser Ansatz das Dereferenzieren des Hashes und Kopieren der gesamten Key-Value-Paare innerhalb von fpic_exif_get().
ungetestet (Feinheiten und Anpassungen an das Drumherum müssen noch selbst gemacht werden):
oder man verwendet den Ansatz des Gebens und Nehmens. D.h. man gibt den Dateinamen als Argument an die Subroutine und erhält die Hash-Referenz als Rückgabewert aus der Sub.
Außerdem vermeidet dieser Ansatz das Dereferenzieren des Hashes und Kopieren der gesamten Key-Value-Paare innerhalb von fpic_exif_get().
ungetestet (Feinheiten und Anpassungen an das Drumherum müssen noch selbst gemacht werden):
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
sub fpic_exif_get { my $filename = shift; my $exif = Image::ExifTool->new(); my $hRef = $exif->ImageInfo( $filename, "EXIF:*" ); return $hRef; } sub fpic_exif_ls { my $filename = "/mnt/images/plane.png"; if ( my $hashref = fpic_exif_get( $filename ) ) { for my $k ( keys %$hashref ) { printf "%s => %s\n", $k, $hashref->{$k}; } } }
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!