aktuelle farben des terminals eruieren

[Siechfred]

my $default_dec = ($console->Info())[4];
etwas uebersichtlicher waere wohl
  $console->Attr()
was afais das gleiche ist.

In der Tat, ja. Ich habe das Ganze aus (m)einem Konsolenscript rauskopiert und reduziert, dort brauchte ich nicht nur die Farbattribute, deshalb Info().

hmm, muss man aber nicht explizit umwandeln. man koennte einfach von vornherein binaer rechnen:
  my $fg = $default_dec & 0xf; # oder halt & 0b1111
  my $bg = $default_dec>>4 & 0xf;

Naja, das binäre Rechnen (unter Perl) ist nicht so mein Ding, wenn du mir da noch auf die Sprünge helfen könntest.

was jetzt uebersichtlicher ist, darueber laesst sich nur streiten.

Ach was, wer will denn zanken :)

Siechfred