hexconv.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:42 2010 from hexconv.pl 2008/01/12 1.1 KB.

#!/perl -w
# hex conversions - from / to
my $color = '9a4fff';
my $color2 = 'FF4F9A';
my $argb = hex_color_2_rgb($color);
my $ahex = rgb_color_2_hex($argb);
prt( "Color: $color returned ($argb) ...[$ahex]\n" );
my $argb2 = hex_color_2_rgb($color2);
my $ahex2 = rgb_color_2_hex($argb2);
prt( "Color: $color2 returned ($argb2) ...[".uc($ahex2)."]\n" );
sub hex_color_2_rgb {
   my ($colr) = shift;
   my $cl = length($colr);
   my $rgb = '';
   if ($cl == 6) {
      for (my $i = 0; $i < 6; $i += 2) {
         my $hclr = substr($colr,$i,2);
         my $num = hex($hclr);
         $rgb .= ',' if length($rgb);
         $rgb .= "$num";
      }
   } else {
      prt( "WARNING: Not 6 length hex color!\n" );
   }
   return $rgb;
}
sub rgb_color_2_hex {
   my ($argb) = shift;
   my $hex = '';
   my @arr = split(',',$argb);
   if (scalar @arr == 3) {
      $hex .= sprintf("%2.2x", $arr[0]);
      $hex .= sprintf("%2.2x", $arr[1]);
      $hex .= sprintf("%2.2x", $arr[2]);
   } else {
      prt( "WARNING: Not an array of 3 comma separated values!\n" );
   }
   return $hex;
}
sub prt {
   my ($txt) = shift;
   print $txt;
}
# eof

index -|- top

checked by tidy  Valid HTML 4.01 Transitional