вообще, я всю эту херню видел, но это искать надо... надо бы такую борду сделать, для вских поленостей. Нашел, понимаешь, что пригодится, но счас не нужно.
#!/usr/bin/perl -w
use Image::Size;
use strict;
while(</home/vilfred/*.*>){
my ($w,$h) = imgsize($_);
$w=$w-20;
$h=$h-20;
print "$w\t$h\n";
my $newname=$1 if m!^.*/(.*?)$!;
$newname="new_".$newname;
qx[convert -font Arial.ttf -fill orange -draw "text $w,$h \"`date -R`\"" $_ images_new/$newname];
}
собственно, команда, которая это делает - convert, что находится
внутри qx[blah-blah-blah]. Осталось дописать вывод имени всех картинок
в директории, узнать их размер например при помощи модуля Image::Size
(лежит на http://www.cpan.org/ или заюзать для узнавания размеров
Image::Magick), от размера отнять 20 по х и 20 по у и полученный
результат разности взять как координаты начала текста(вычисление
координат позволяет избавиться от разных размеров у разных картинок),
находящегося в нижнем углу картинки, ну или что-то в этом роде. На
картинку ставится текущая дата.
p.s. работу скрипта не проверял, так что сделай резервную копию
картинок и попробуй, чего выйдет.
Спасибо! только этим скриптом пользоваться не стал ибо нет перла,
а ставить не хочется. Поэтому чуть-чуть переписал на шелле используя
только ImageMagick:
for i in `ls ${1}`; do
array=(`identify ${1}/$i|cut -f 3 -d ' '| cut -f 1 -d '+'|tr x ' '`)
# width=${array[0]};
width=5;
height=$((${array[1]}-10));
convert -font helvetica -fill black -draw "text $width,$height Mytext" ${1}/$i ${1}/../new/$i;
done