ABAKUS

Verfasst: **12.09.2005, 15:27**

Hi
habe folgenden Perl Code gefunden um die Komplementärfarbe eines HEX Farbwertes zu ermitteln, kann mir das jemand in PHP umschreiben oder so erklären das ichs versuchen kann nachzubauen....

Code: Alles auswählen

#! /usr/bin/perl

use strict;
use warnings;

my $code = 'cc11ee';
my $komplement = komp&#40;$code&#41;;

sub komp&#123;
  my &#40;$farbe&#41; = @_;
  my %hash = &#40;0 => 'F',
              1 => 'E',
              2 => 'D',
              3 => 'C',
              4 => 'B',
              5 => 'A',
              6 => 9,
              7 => 8,
              8 => 7,
              9 => 6,
              A => 5,
              B => 4,
              C => 3,
              D => 2,
              E => 1,
              F => 0,&#41;;
 
  my $komp_farbe = '';
  my @zahlen = split&#40;//,$farbe&#41;;
  foreach&#40;@zahlen&#41;&#123;
    $komp_farbe .= $hash&#123;uc&#40;$_&#41;&#125;;
  &#125;
  return $komp_farbe;
&#125;

gefunden hab ich den code hier: https://forum.perl.de/

gruß pebosi

SEO Consulting bei ABAKUS Internet Marketing
Erfahrung seit 2002

persönliche Betreuung
individuelle Beratung
kompetente Umsetzung

Jetzt anfragen: 0511 / 300325-0.

Verfasst: **12.09.2005, 16:55**

Code: Alles auswählen

<?php
$farbe="fa72eb";

$komp=substr&#40;dechex&#40;~hexdec&#40;$farbe&#41;&#41;,-6&#41;;

print "Komplementärfarbe für $farbe ist $komp";
?>

Verfasst: **12.09.2005, 17:03**

danke funktioniert ja wunderbar, kannst du mir auch ne kleinigkeit dazu erklären?

gruß pebosi

Verfasst: **12.09.2005, 17:07**

wir haben als Ausgangswert einen Hex Wert, um sicherzustellen, dass dies auch als Zahl von PHP erkannt wird, wandel ich es in eine dezimalzahl um, negiere diese bitweise und wandel wieder in hex um, von der ich dann die letzten 6 Stellen nehme....

feddich...

ABAKUS

[PHP] Komplementärfarbe berechenen

[PHP] Komplementärfarbe berechenen

[PHP] Komplementärfarbe berechenen

[PHP] Komplementärfarbe berechenen

[PHP] Komplementärfarbe berechenen