#!/usr/bin/perl
print <param("cR");
my $cG=$q->param("cG");
my $cB=$q->param("cB");
if($cR>255){$cR=255}
if($cG>255){$cG=255}
if($cB>255){$cB=255}
if($cR<1){$cR=0}
if($cG<1){$cG=0}
if($cB<1){$cB=0}
print <<;
При известном RGB подобрать цвет DMC
Введите значения цветов в десятичном формате (от 0 до 255).
#$c="#ffff00";
#$cR=0;
#$cG=255;
#$cB=255;
$c=sprintf("#%02x%02x%02x",$cR,$cG,$cB);
### open my $OUT,">____.html";
### select $OUT;
open my $IN,";
close $IN;
$th=10000;
for(@A){
chomp;
($f,$he,$R,$G,$B)=split / /,$_;
# $u=abs($cR-$R)**2+abs($cG-$G)**2+abs($cB-$B)**2;
$sR=$cR-$R;
$sG=$cG-$G;
$sB=$cB-$B;
$u=abs($sR)+abs($sG)+abs($sB);
$pc=sprintf("%.1f",($u*100/(256*3)));
# if ($pc<20){
$text=" | | | $f | $he | $R | $G | $B | $u | $pc% | $sR | $sG | $sB\n";
$H{$text}=$u;
# }
}
$i=0;
print <
| Искомый цвет | $c | $cR | $cG | $cB |
HTML
for(sort {$H{$a}<=>$H{$b}} keys %H){
if($i++>15){last}
print;
}
| |