ColorIndex值一览


1 &H000000 RGB(0,0,0)	53 &H003399 RGB(153,51,0)	52 &H003333 RGB(51,51,0)	51 &H003300 RGB(0,51,0)	49 &H663300 RGB(0,51,102)	11 &H800000 RGB(0,0,128)	55 &H993333 RGB(51,51,153)	56 &H333333 RGB(51,51,51)

9 &H000080 RGB(128,0,0)	46 &H0066FF RGB(255,102,0)	12 &H008080 RGB(128,128,0)	10 &H008000 RGB(0,128,0)	14 &H808000 RGB(0,128,128)	5 &HFF0000 RGB(0,0,255)	47 &H996666 RGB(102,102,153)	16 &H808080 RGB(128,128,128)

3 &H0000FF RGB(255,0,0)	45 &H0099FF RGB(255,153,0)	43 &H00CC99 RGB(153,204,0)	50 &H669933 RGB(51,153,102)	42 &HCCCC33 RGB(51,204,204)	41 &HFF6633 RGB(51,102,255)	13 &H800080 RGB(128,0,128)	48 &H969696 RGB(150,150,150)

7 &HFF00FF RGB(255,0,255)	44 &H00CCFF RGB(255,204,0)	6 &H00FFFF RGB(255,255,0)	4 &H00FF00 RGB(0,255,0)	8 &HFFFF00 RGB(0,255,255)	33 &HFFCC00 RGB(0,204,255)	54 &H663399 RGB(153,51,102)	15 &HC0C0C0 RGB(192,192,192)

38 &HCC99FF RGB(255,153,204)	40 &H99CCFF RGB(255,204,153)	36 &H99FFFF RGB(255,255,153)	35 &HCCFFCC RGB(204,255,204)	34 &HFFFFCC RGB(204,255,255)	37 &HFFCC99 RGB(153,204,255)	39 &HFF99CC RGB(204,153,255)	2 &HFFFFFF RGB(255,255,255)

17 &HFF9999 RGB(153,153,255)	18 &H663399 RGB(153,51,102)	19 &HCCFFFF RGB(255,255,204)	20 &HFFFFCC RGB(204,255,255)	21 &H660066 RGB(102,0,102)	22 &H8080FF RGB(255,128,128)	23 &HCC6600 RGB(0,102,204)	24 &HFFCCCC RGB(204,204,255)

25 &H800000 RGB(0,0,128)	26 &HFF00FF RGB(255,0,255)	27 &H00FFFF RGB(255,255,0)	28 &HFFFF00 RGB(0,255,255)	29 &H800080 RGB(128,0,128)	30 &H000080 RGB(128,0,0)	31 &H808000 RGB(0,128,128)	32 &HFF0000 RGB(0,0,255)

生成程序

#  color_index.pl
use strict;
use HTML::Template;

my(%t,@fld,$n,$template,@loop);
print "Please input filename=";
chop($t{root}=<STDIN>);
$t{tmpl} = $t{root} . '0.htm';
$t{inputf} = $t{root} . '.txt';

$template = HTML::Template->new(filename => $t{tmpl});
@loop = ();

$t{htmfile} = $t{root} . '1.htm';

$t{flag} = 1;
open(IN,"$t{inputf}") or die "Can't open the file $t{inputf}";
while(<IN>){
    next if $. == 1;
    next if length($_) < 2;
	chop;
    if ( $t{flag} == 1 ) {
        $t{flag} = 2;
        push(@{ $t{N1s} },$_);
		$t{N11} = $_;
    } elsif ($t{flag} == 2) {
		$t{clist}{$t{N11}} = $_;
        $t{flag} = 3;
    } elsif ($t{flag} == 3) {
		$t{elist}{$t{N11}} = $_;
        $t{flag} = 1;
    } 
}
close(IN);

#@{ $t{NN} } = sort @{ $t{N1s} };
@{ $t{NN} } = @{ $t{N1s} };

for $n ( 0 .. $#{ $t{NN} } ) {
	
	$t{N1} = $t{NN}[$n];
    $t{c1} = $t{clist}{$t{N1}};
    $t{e1} = $t{elist}{$t{N1}};

$t{content} = $t{N1} . '<br>' . $t{c1} . '<br>' . $t{e1};
	$t{c11} = substr($t{c1},2,2);
	$t{c12} = substr($t{c1},4,2);
	$t{c13} = substr($t{c1},6,2);
	$t{c14} = substr($t{c1},8,2);
	$t{c1} = '#' . $t{c14} . $t{c13} . $t{c12} . $t{c11};
	$t{color1} = '<td bgcolor="' . $t{c1} . '"> </td>';
	$t{content1} = '<td>' . $t{content} . '</td>';

push(@{ $t{colors} },$t{color1});
	push(@{ $t{contents} },$t{content1});
}

$t{C1} = 8;
$t{C4} = 1;
$t{line1} = $t{line2} = 0;
for $n ( 0 .. $#{ $t{colors} } ) {
	
	$t{color1} = $t{colors}[$n];
	$t{content1} = $t{contents}[$n];

$t{C2} = int($n/$t{C1});
	$t{C3} = abs($n/$t{C1}-int($n/$t{C1}));
	if ( $t{C2} > $t{C4} ) {
		$t{C4}++;
	}

if ( $t{C3} < 0.0000001 ) {
		if ( !($t{line1}) ) {
			$t{line1} = '<tr>' . $t{color1};
		} else {
			$t{line1} .= '</tr>';
			push(@{ $t{lines} },$t{line1});
			$t{line1} = '<tr>' . $t{color1};
		}
	} elsif ( $n == 55 ) {
		$t{line1} .= $t{color1} . '</tr>';
		push(@{ $t{lines} },$t{line1});
	} else {
		$t{line1} .= $t{color1};
	}

if ( $t{C3} < 0.0000001 ) {
		if ( !($t{line2}) ) {
			$t{line2} = '<tr>' . $t{content1};
		} else {
			$t{line2} .= '</tr>';
			push(@{ $t{lines} },$t{line2});
			$t{line2} = '<tr>' . $t{content1};
		}
	} elsif ( $n == 55 ) {
		$t{line2} .= $t{content1} . '</tr>';
		push(@{ $t{lines} },$t{line2});
	} else {
		$t{line2} .= $t{content1};
	}
}

for $n ( 0 .. $#{ $t{lines} } ) {
	$t{line1} = $t{lines}[$n];
    my %row = (
            line1 => $t{line1}
    );
    push(@loop, \%row);
}

$template->param(loop => \@loop);
open(OUT,">$t{htmfile}");
print OUT $template->output;
close(OUT);
---------------------------------------------------
ColorIndex
1
&H000000
RGB(0,0,0)
53
&H003399
RGB(153,51,0)
52
&H003333
RGB(51,51,0)
51
&H003300
RGB(0,51,0)
49
&H663300
RGB(0,51,102)
11
&H800000
RGB(0,0,128)
55
&H993333
RGB(51,51,153)
56
&H333333
RGB(51,51,51)
9
&H000080
RGB(128,0,0)
46
&H0066FF
RGB(255,102,0)
12
&H008080
RGB(128,128,0)
10
&H008000
RGB(0,128,0)
14
&H808000
RGB(0,128,128)
5
&HFF0000
RGB(0,0,255)
47
&H996666
RGB(102,102,153)
16
&H808080
RGB(128,128,128)
3
&H0000FF
RGB(255,0,0)
45
&H0099FF
RGB(255,153,0)
43
&H00CC99
RGB(153,204,0)
50
&H669933
RGB(51,153,102)
42
&HCCCC33
RGB(51,204,204)
41
&HFF6633
RGB(51,102,255)
13
&H800080
RGB(128,0,128)
48
&H969696
RGB(150,150,150)
7
&HFF00FF
RGB(255,0,255)
44
&H00CCFF
RGB(255,204,0)
6
&H00FFFF
RGB(255,255,0)
4
&H00FF00
RGB(0,255,0)
8
&HFFFF00
RGB(0,255,255)
33
&HFFCC00
RGB(0,204,255)
54
&H663399
RGB(153,51,102)
15
&HC0C0C0
RGB(192,192,192)
38
&HCC99FF
RGB(255,153,204)
40
&H99CCFF
RGB(255,204,153)
36
&H99FFFF
RGB(255,255,153)
35
&HCCFFCC
RGB(204,255,204)
34
&HFFFFCC
RGB(204,255,255)
37
&HFFCC99
RGB(153,204,255)
39
&HFF99CC
RGB(204,153,255)
2
&HFFFFFF
RGB(255,255,255)
17
&HFF9999
RGB(153,153,255)
18
&H663399
RGB(153,51,102)
19
&HCCFFFF
RGB(255,255,204)
20
&HFFFFCC
RGB(204,255,255)
21
&H660066
RGB(102,0,102)
22
&H8080FF
RGB(255,128,128)
23
&HCC6600
RGB(0,102,204)
24
&HFFCCCC
RGB(204,204,255)
25
&H800000
RGB(0,0,128)
26
&HFF00FF
RGB(255,0,255)
27
&H00FFFF
RGB(255,255,0)
28
&HFFFF00
RGB(0,255,255)
29
&H800080
RGB(128,0,128)
30
&H000080
RGB(128,0,0)
31
&H808000
RGB(0,128,128)
32
&HFF0000
RGB(0,0,255)