The following script searches STDIN for 3 or 6 symbol hex values and prints a html structure that represents those values as colors on page.
To view example output hit "read more".
#!/usr/bin/perl -w
use Set::Scalar;
$uniqueColors = Set::Scalar->new;
while( defined( $_ = <STDIN> ) ){
while ( $_ =~/(#[a-fA-F0-9]{1,6})/g ){
$uniqueColors->insert( $1 )
}
}
print <<HEADER;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<HTML>
<HEAD>
<TITLE>Found HEX colors</TITLE>
</HEAD>
<BODY>
HEADER
while ( defined( my $color = $uniqueColors->each ) ){
print "<p style=\"background: " . $color . "\">" . $color . "</p>\n"
}
print "</BODY>
</HTML>"
Used this one to parse color-theme-tangotango.el emacs color theme file.To view example output hit "read more".
#ee3436
#2E4034
#8ae234
#426f9f
#bbbbbc
#888a85
#252b2b
#343434
#222222
#2e3434
#eeeeec
#243436
#6ac214
#555753
#fce94f
#729fcf
#2e3436
#ad7fa8
#2E3440
#edd400
#e9b96e
#f57900
#73d216
No comments:
Post a Comment