if (1 - (0.299 * red + 0.587 * green + 0.114 * blue) / 255 < 0.5)
// светлый
else
// темный
UI.pm
в указанных директориях (/usr/local/lib64/perl5
, /usr/local/share/perl5
, /usr/lib64/perl5/vendor_perl
, /usr/share/perl5/vendor_perl
, /usr/lib64/perl5
, /usr/share/perl5
).UI.pm
в указанных директориях (/usr/local/lib64/perl5
, /usr/local/share/perl5
, /usr/lib64/perl5/vendor_perl
, /usr/share/perl5/vendor_perl
, /usr/lib64/perl5
, /usr/share/perl5
).UI.pm
в указанных директориях (/usr/local/lib64/perl5
, /usr/local/share/perl5
, /usr/lib64/perl5/vendor_perl
, /usr/share/perl5/vendor_perl
, /usr/lib64/perl5
, /usr/share/perl5
).