如何將十六進制數字打印到Perl字符串中？

Question

我有三個整數：

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

我想打印一個字符串，如：

"#FF8000" 

使用這些變量。

我該怎麼做？

Answer 1

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

請參閱sprintf和printf。

Answer 2

您可以使用pack和unpack來獲取十六進制字符串。

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