How do you print hexadecimal digits to a Perl string?

Question

I have three integers:

($r, $g, $b) = (255, 128, 0);

I would like to print a string like:

"#FF8000"

using those variables.

How do I do this?

Answer 1

You could use pack and unpack, to get the hexadecimal string.

my $rgb = '#' . uc unpack 'H6', pack 'C3', $r, $g, $b;

Answer 2

my $rgb = sprintf '#%02X%02X%02X', $r, $g, $b;

See sprintf and printf.