Re: Hex to array conversion


Perl-Sensitive Sunglasses
	PerlMonks

Re: Hex to array conversion

by gam3 (Curate)

on Oct 08, 2007 at 14:32 UTC ( [id://643470]=note: print w/replies, xml )

Need Help??

in reply to Hex to array conversion

similar to the unpack example, but with error checking.

use strict;

sub hex2rgb
{
    my $hex = shift;

    if (my @data = ($hex =~ /\#((?:[0-9a-fA-F]){2})((?:[0-9a-fA-F]){2}
+)((?:[0-9a-fA-F]){2})/)) {
        return join(',', map({ hex($_); } @data));
    } else {
        die "Bad hex: ", $hex;
    }
}

print hex2rgb("#ff00ff"), "\n";
print hex2rgb("#fx00ff"), "\n";
[download]

-- gam3
A picture is worth a thousand words, but takes 200K.