Color::Rgb - Simple rgb.txt parsing class
$Revision: 1.4 $
use Color::Rgb;
$rgb = new Color::Rgb(rgb_txt=>'/usr/X11R6/lib/X11/rgb.txt');
@rgb = $rgb->rgb('red'); # returns 255, 0, 0
$red = $rgb->rgb('red', ','); # returns the above rgb list as
# comma separated string
$red_hex=$rgb->hex('red'); # returns 'FF0000'
$red_hex=$rgb->hex('red', '#'); # returns '#FF0000'
$my_hex = $rgb->rgb2hex(255,0,0); # returns 'FF0000'
$my_rgb = $rgb->hex2rgb('#FF0000'); # returns list of 255,0,0
Color::Rgb - simple rgb.txt parsing class.
new([rgb_txt=$rgb_file])> - constructor. Returns a Color::Rgb object. Optionally accepts a path to the rgb.txt file. If you omit the file, it will use the path in the $Color::Rgb::RGB_TXT variable, which defaults to '/usr/X11R6/lib/X11/rgb.txt'. It means, instead of using rgb_txt=>'' option, you could also set the value of the $Color::Rgb::RGB_TXT variable to the correct path before you call the new() constructor (but definitely after you load the Color::Rgb class with use or require).
Note: If your system does not provide with any rgb.txt file, Color::Rgb distribution includes one you can use instead.
name2rgb($name [,$delimiter]) - returns list of numeric Red, Green and Blue values for a $name delimited (optionally) by a $delimiter . $name is name of the color in the English language (Ex., 'black', 'red', 'purple' etc.).
Examples:
my ($r, $g, $b) = $rgb->rgb('blue'); # returns list: 00, 00, 255
my $string = $rgb->rgb('blue', ','); # returns string: '00,00,255'
If name does not exist in the rgb.txt file it will return undef.
name2hex($name [,$prefix]) - similar to rgb($name) method, but returns hexadecimal string representing red, green and blue colors, prefixed (optionally) with $prefix. If $name does not exist in the rgb.txt file it will return undef.hex($name, [,$delimiter]) - alias to name2hex()rgb($name, [,$delimiter]) - alias to name2rgb()rgb2hex($r, $g, $b [,$prefix]) - converts rgb value to hexadecimal string. This method has nothing to do with the rgb.txt file, so none of the arguments need to exist in the file.
Examples:
@rgb = (128, 128, 128); # RGB representation of grey
$hex_grey = $rgb->rgb2hex(@rgb); # returns string 'C0C0C0'
$hex_grey = $rgb->rgb2hex(@rgb, '#'); # returns string '#C0C0C0'
hex2rgb('hex' [,$delim]) - the opposite of rgb2hex(): takes a hexadecimal representation of a color and returns a numeric list of Red, Green and Blue. If optional $delim delimiter is present, it returns the string of RGB colors delimited by the $delimiter. Characters like '#' and '0x' in the beginning of the hexadecimal value will be ignored. Examples:
$hex = '#00FF00'; # represents blue
@rgb = $rgb->hex2rgb($hex); #returns list of 0, 255, 0
$rgb_string = $rgb->hex2rgb($hex,','); #returns string '0,255,0'
Note: hex2rgb() expects valid hexadecimal representation of a color in 6 character long string. If not, it might not work properly.
names([$pattern] - returns a list of all the names in the rgb.txt file. If $pattern is given as the first argument, it will return only the names matching the pattern. Example:
@colors = $rgb->names; # returns all the names
@gray_colors = $rgb->names('gray'); # returns list of all the names
# matching the word 'gray'
=back
Following people contributed to this library with their patches and/or bug reports. (list is in chronological order)
Color::Rgb is a free software and can be modified and distributed under the same terms as Perl itself.
Color::Rgb is maintained by Sherzod B. Ruzmetov <sherzodr@cpan.org>.
