1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use Gtk3 -init; my $color = Gtk3::Gdk::Color::parse ($ARGV[0]); my $complement = $color->copy; $complement->red(255 - $complement->red); $complement->green(255 - $complement->green); $complement->blue(255 - $complement->blue); printf "%s\n", $complement->to_string;
1
2
3
4
perl ~/bin/complementary-color.pl red
Unable to init server: Verbindung ist gescheitert:Verbindungsaufbau abgelehnt
(complementary-color.pl:10093): Gtk-WARNING **: cannot open display:
2015-06-03T23:16:58 murphydie Unterstützung für das GUI-Backend muss natürlich in Gdk / Gtk einkompiliert sein, damit das funktioniert.
use Gtk3 -init;
use Gtk3;
Gtk3::init();