for img in `ls *.jpg`
do
convert -resize 800x600 $img $img
done
beltazore skrev:Andre tips, du gjør det vanskeligere enn du må:
- Kode: Merk alt
for img in `ls *.jpg`
do
convert -resize 800x600 $img $img
done
Burde løse det. I alle fall lett å gå ut i fra den koden
for img in `ls *.jpg`
do
convert -resize 800x600 "$img" "$img"
done
use strict;
use warnings;
use Carp;
my $in = "/tmp/inn";
my $out = "/tmp/ut";
my $lock = "/tmp/bilde.lock";
my $log = "/tmp/bilde.log";
# Lås, dø hvis låst, lås hvis ikke.
if (-e $lock) {
croak "kjører allerede"
}
else {
open my $fh, ">", $lock
or croak "Klarer ikke å låse fil";
close $fh;
}
# Les innmappen og utfør modifikasjoner
opendir my $inbox, "$in/"
or &nice_die("Klarte ikke å åpne in mappe.");
foreach my $order (readdir($inbox)) {
next unless $order =~ /jpg$/;
&log("Roterer og resizer $order");
`convert -rotate "-90" -resize x1200 $in/$order $out/$order`;
&log("Sletter $order fra in");
unless (-e "$out/$order") {
&nice_die("Fil finnes ikke i ut, avbryter slett");
}
else { unlink "$in/$order"; }
}
&log("Ferdig.");
unlink $lock;
sub log {
open my $logfil, ">>$log"
or carp "klarte ikke å åpne logfil $log";
print $logfil @_, "\n";
close $logfil;
}
sub nice_die {
unlink $lock;
croak @_;
}
foreach(glob("*.*") as $fileName) {
$fileType = exif_imagetype($fileName) ;
if (is_int($fileType)) {
if (!is_file("resize_".$fileName)) {
echo "Generating Thumbnail of \"".$fileName."\": " ;
`convert -size 128x96 "$fileName" -resize 128x96 "resize_"."$fileName"` ;
if (!is_file("resize_".$fileName)) {
echo errorColor("Permission Denied") ;
} else {
echo successColor("ok") ;
}
echo ".<br>\n" ;
}
}
}
kennethr skrev:Veldig hyggelig å se at noen blåser liv i denne gamle tråden!
Noen som bruker scriptet til noe?
Returner til Utvikling i Linux
Registrerte brukere: Google [Bot]