Je viens vous voir parce que je suis absolument nulle en perl, et carrément débutante en php....donc bon j'ai un script perl qui fait presque exactement ce que je veux, à savoir mettre une image avec la même couleur que l'autre. Le problème et que j'aimerai avoir si possible une aide pour traduire ce script en script php, et deuxièmement le but ce que ce je cherche à faire serait plutôt de rendre une série d'images (et non pas une seule) de la même couleur qu'une image sui serait "couleur de référence" si on puis dire....
Je vous laisse le script perl et j'attends vraiment vraiment votre aide, car je dois rendre ce projet incessamment sous peu....
Code : Tout sélectionner
#/usr/bin/perl -w
use strict;
print "Rappel : 0-noir 255-blanc\n\n";
my $imgfile="photo1.jpg";
my $img_value=0;
my $img_value2=0;
print "informations image : $imgfile\n";
my @identity=`identify -verbose $imgfile`;
print "extraction des donnees : ";
foreach (@identity) {
if (/Mean: (.*?) \((.*?)\)$/) {
$img_value=$1;
$img_value2=$2;
print "$img_value / $img_value2\n";
}
}
my $img2file="photo2.jpg";
my $img2_value=0;
my $img2_value2=0;
print "informations image : $img2file\n";
my @identity2=`identify -verbose $img2file`;
print "extraction des donnees : ";
foreach (@identity2) {
if (/Mean: (.*?) \((.*?)\)$/) {
$img2_value=$1;
$img2_value2=$2;
print "$img2_value / $img2_value2\n";
}
}
my $res1=$img_value/$img2_value;
my $res2=$img_value2/$img2_value2;
print "Resultat 1 : ".$res1."\n";
print "Resultat 2 : ".$res2."\n";
my $percent=$res1*100;
print "creation de l'image\n";
`convert -modulate $percent,100,100 $img2file new_$img2file`;
print "affichage\n";
`display new_$img2file &`;
exit;
[/php]
Pas de quoi. N'hésite pas à reposter si tu as du mal, on(je) t'aidera(i).
