Názor ke článku Jak hromadně zmenšit fotky od a1 - ja tam jeste pridavam Copyright do Exifu takze...

ja tam jeste pridavam Copyright do Exifu takze to delam perlem:

#!/usr/bin/perl
use Image::ExifTool;

my $exifTool = new Image::ExifTool;
my $options = "-interlace Line -quality 85";
$exifTool->Options(Duplicates => 0 , PrinConv => 0);
$rotate[8]=" -rotate -90";
$rotate[6]=" -rotate 90";
$rotate[1]="";

opendir(DIR, '.') || die "can't opendir $some_dir: $!";
@files = grep { /\.jpg/ } readdir(DIR);

foreach $file (@files){
$exifTool->ExtractInfo($fi­le);
$orientation= $exifTool->GetValue('Ori­entation','Va­lueConv');
#print " $orientation ". $exifTool->GetValue('Ori­entation')."\n";
$command="convert $options ".$rotate[$ori­entation]." -resize '800x600>' $file xx/$file";
print $command."\n";
system $command;
$exifTool->SetNewValue(Co­pyright => 'photo@xxxxx.cz', Replace => 1);
$exifTool->WriteInfo("xx/$fi­le");
}
closedir DIR;