iPhotoã¯åãè¾¼ãã åçã«Exif追å ãã¾ã eyefiã§ä¸ãã¾ããçæ´»ãããå¾ã«iPhotoã«æ®ã£ã¦ãå¤ãåçãä¸ãããã¨æã£ããeyefiã§ä¸ãæ¸ã¿ã®åçãä¸ãã£ã¦ã¦ããã£ãä»æ¥ãã®é çæ§ããããéããã§ããããã iPhotoã«åãè¾¼ã¾ããåçã¯Exifæ å ±ã追å ããã¨ãã£ããã¨ãä¸è¬çã«ç¥ããã¦ãã¾ãããå®éã«ã©ããªãã¼ã¿ã追å ããã¦ãããè¦ã¦ã¿ã¾ããã ææï¼iPhotoéãã¦ãªãåç 1æ iPhotoéããåãåç 1æ ä¸è¨ã®ã¹ã¯ãªãã use strict; use warnings; use Image::ExifTool ':Public'; my $eyefi = ImageInfo(shift); my $iphoto = ImageInfo(shift); while (my($k, $v) = each %{ $eyefi }) { my $iphoto_
{{#tags}}- {{label}}
{{/tags}}