2018年01月20日 東花園駅とトライくん
このあたりにはあまり行く機会が無かったので、いつからいてたのかわかりませんが。
というか、東花園の駅前も、いつの間にかだいぶスッキリきれいになった気がします。
大型クレーンとかいて、だいぶ大規模な改修工事をしているみたいです。
PR
C:\> cpan cpan shellが起動する(一回目はインストール処理が走りました) cpan> install Image::ExifTool
#!/usr/bin/perl use strict; use Image::ExifTool; my $InFile; my $OutFile; my $ExifTool; my $ExifInfo; my @kw; my $i; $i=0; $kw[$i++]="CreateDate"; $kw[$i++]="Model"; $kw[$i++]="LensID"; $kw[$i++]="ISO"; $kw[$i++]="ShutterSpeed"; $kw[$i++]="FNumber"; $kw[$i++]="FocalLength"; $kw[$i++]="FocalLength35efl"; while($#ARGV>=0){ $InFile = $ARGV[0]; shift; my $OutFile = "${InFile}_exif.txt"; $ExifTool = new Image::ExifTool; $ExifInfo = $ExifTool->ImageInfo($InFile); open(OUT,">$OutFile"); for($i=0;$i<=$#kw;$i++){ if(defined $$ExifInfo{$kw[$i]}){ printf(OUT "%s: %s\n",$kw[$i],$$ExifInfo{$kw[$i]}); } else { printf(OUT "%s: %s\n",$kw[$i],"-"); } } printf(OUT "\n"); printf(OUT "--------\n"); foreach (sort keys %$ExifInfo) { printf(OUT "%s: %s\n",$_,$$ExifInfo{$_}); } close(OUT); }
C:\> perl exif.pl xxx.jpeg