[PHP] Komplementärfarbe berechenen

Code: Alles auswählen

#! /usr/bin/perl

use strict;
use warnings;

my $code = 'cc11ee';
my $komplement = komp($code);

sub komp{
  my ($farbe) = @_;
  my %hash = (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,);
 
  my $komp_farbe = '';
  my @zahlen = split(//,$farbe);
  foreach(@zahlen){
    $komp_farbe .= $hash{uc($_)};
  }
  return $komp_farbe;
}