perlã«ã¡ã©ã®æå»ãééãã¦è¨å®ãã¦ãã¾ã£ãããæµ·å¤æ
è¡ã«è¡ã£ãã®ã«æå·®ãå¤æ´ãå¿ãããããã¨ããã¾ã¨ãã¦åçã®æå»ãå¤æ´ããããªãã便å©ãªããªã¼ã½ããããããã ããã©ãã¹ã¯ãªããã§ã¾ã¨ãã¦å¦çããããªãã®ãããã°ã©ãéãä»å㯠perl ã使ã£ã¦ãã£ã¦ã¿ããEXIF ã®æéãæ¸ãæããperl 㧠EXIF ãæ±ãã«ã¯ Image::ExifTool ãå®çªãªããã ãCPAN ããæ¾ã£ã¦ãã¦ãç°¡åãªã¯ã³ã©ã¤ãã¼ãæ¸ãã¦ã¿ãã perl -MImage::ExifTool -e "for $f(glob('*.jpg')){$e = new Image::ExifTool; $e->ImageInfo($f); $e->SetNewValue($_=>240, Shift=>1) for ('ModifyDate','DateTimeOriginal','CreateDate'); $e
{{#tags}}- {{label}}
{{/tags}}