perl - 如何将十六进制转换为 RGB？ (perl)

Question

如何将十六进制颜色(例如 0000FF、FF00FF)转换为算术 RGB 格式(例如 0 0 1、1 0 1)？

我想在我的一些 perl 脚本中实现一个命令来执行此操作，但我什至不知道如何手动执行此操作。

有人可以帮我在 perl 中做到这一点，甚至告诉我如何手动做到这一点，这样我就可以想出我自己的 perl 命令吗？

Answer 1

假设您尝试将 00..FF16 映射到实数 0..1，

my @rgb = map $_ / 255, unpack 'C*', pack 'H*', $rgb_hex;

pack 'H*',变化 "FF00FF"至 "\xFF\x00\xFF" .

unpack 'C*',变化 "\xFF\x00\xFF"至 0xFF, 0x00, 0xFF .

map $_ / 255,变化 0xFF, 0x00, 0xFF至 0xFF/255, 0x00/255, 0xFF/255