Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: printing metadata Tag using ExifTool

by g_speran (Scribe)
on Apr 13, 2021 at 19:39 UTC ( [id://11131218]=note: print w/replies, xml ) Need Help??


in reply to printing metadata Tag using ExifTool

I think I my have answered my own question

use Image::ExifTool qw(:Public); use Data::Dumper; $file='d:/60486581538__715F9238-09E5-4806-8146-0626DAFB0E36.JPG'; $ExifTool = new Image::ExifTool; #$ExifTool->Options(DateFormat => '%Y-%m-%d'); $info = $ExifTool->ImageInfo($file,'SubSecCreateDate','LensModel'); #$info = $ExifTool->ImageInfo($file); print "INFO: $info\n"; # Setting Variable Reading Hash Method $createdate=$$info{'SubSecCreateDate'}; $lens=$$info{'LensModel'}; print "\nHASH Method\n"; print "\tCreate Date: $createdate\n"; print "\tLens Model: $lens\n\n"; # Setting Variable using ExifTool GetValue Method $createdate2=$ExifTool->GetValue('SubSecCreateDate'); $lens2=$ExifTool->GetValue('LensModel'); print "ExifTool GetValue Method\n"; print "\tCreate Date2: $createdate2\n"; print "\tLens Model2: $lens2\n\n"; print "Dumping Variable\n\t"; print Dumper($info); exit; D:\>metadata.pl INFO: HASH(0x2b91f48) HASH Method Create Date: 2020:03:02 13:16:55.336-05:00 Lens Model: iPhone 7 back camera 3.99mm f/1.8 ExifTool GetValue Method Create Date2: 2020:03:02 13:16:55.336-05:00 Lens Model2: iPhone 7 back camera 3.99mm f/1.8 Dumping Variable $VAR1 = { 'SubSecCreateDate' => '2020:03:02 13:16:55.336-05:00', 'LensModel' => 'iPhone 7 back camera 3.99mm f/1.8' }; D:\>

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11131218]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2024-03-28 10:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found