On Wed, 2007-11-28 at 16:29 -0300, Marcelo Magno T. Sales wrote:
> Em Qua 28 Nov 2007, Rick Stevens escreveu:
> > On Wed, 2007-11-28 at 09:50 +0000, John Austin wrote:
> > > On Wed, 2007-11-28 at 10:20 +0900, John Summerfield wrote:
> > > > Matthieu wrote:
> > > > > -----BEGIN PGP SIGNED MESSAGE-----
> > > > > Hash: SHA1
> > > > >
> > > > > Hello,
> > > > >
> > > > > I am looking for a software that would allow me to resize
> > > > > automatically a bunch of JPEG pictues, while letting me choose
> > > > > the compression rate and keeping the EXIF informations. Waht
> > > > > could provide that?
> > >
> > > I have a crude script for "some" of this.
> > >
> > > As it stands it overwrites the originals !!!
> > >
> > > John
> > >
> > > naxos bin 816# cat image_reduce_size
> > > #!/usr/bin/perl -w
> > > #Reduce size of all *.jpg files in a directory
> > > #Parameter 50% say
> > > #cd correct_dir; image_reduce_size 50% *.jpg
> > > $size = shift @ARGV;
> > > print $size,"\n";
> > >
> > > while(@ARGV){
> > > $file = shift @ARGV;
> > > ($bfile = $file) =~ s#.*/##s;
> > > print $file," ",$bfile,"\n";
> > > `convert -resize $size $file /tmp/$bfile`;
> > > `mv -f /tmp/$bfile $file`;
> > > }
> > > naxos bin 817#
>
> You can do the same in one line using find with mogrify:
>
> find -iname "*.jpg" -exec mogrify -resize 50% {} \;
>
> This will resize all jpg images in the current directory and in the tree
> below it. mogrify is just the same as convert, but it overwrites the
> original file. No need to do that in two steps (convert + mv)
>
> []'s
> Marcelo
>
Hi Marcelo
I like that one liner !!!!
John
