如何将十六进制数字打印到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;