Comment obtenir les métadonnées d'une image par le module Perl?

Question

J'ai installé le composant suivant par MacPorts:

p5-image-info @1.16 (perl, graphics) 
Extract meta information from image files 

Il est dit dans its website que vous pouvez l'utiliser par

Usage is something like this: 

    use Image::Info qw(image_info); 

    @info = image_info("filename"); 
    $refto_hash_describing_1st_image = $info[0]; 
    $refto_hash_describing_2nd_image = $info[1]; 

Cependant, je courir sans succès

$perl use Image::Info qw(image_info); 
-bash: syntax error near unexpected token `(' 
$ 

Comment pouvez-vous obtenir les métadonnées d'une image par le module Perl?

Answer 1

La syntaxe est décrit comment vous l'utiliser dans un script Perl, pas comment vous pouvez l'utiliser comme une seule ligne de la coquille.

Mettre cela dans un fichier .pl (par exemple "image_info.pl"):

#!/usr/bin/perl -w 
use strict; 
use Image::Info qw[image_info]; 
use Data::Dumper; 

while (@ARGV) { 
    print Dumper(image_info(shift)); 
} 

et l'exécuter ainsi:

$ ./image_info.pl file.jpg 

et se vautrer dans les masses d'informations, il vous dira ...

Answer 2

Lire http://perldoc.perl.org/perlrun.html