114 |
foreach my $w (@words) { |
foreach my $w (@words) { |
115 |
if ($w =~ m/ARRAY/) { |
if ($w =~ m/ARRAY/) { |
116 |
foreach my $ww (sort { length($b) <=> length($a) } @{$w}) { |
foreach my $ww (sort { length($b) <=> length($a) } @{$w}) { |
117 |
$$snip_ref =~ s,(\b\Q$ww\E),<span style="background: $colors[$i]; color:black;">$1</span>,gsi; |
$$snip_ref =~ s,(\b\Q$ww\E\w*),<span style="background: $colors[$i]; color:black;">$1</span>,gsi; |
118 |
} |
} |
119 |
} else { |
} else { |
120 |
$$snip_ref =~ s,(\b\Q$w\E),<span style="background: $colors[$i]; color:black;">$1</span>,gsi; |
$$snip_ref =~ s,(\b\Q$w\E\w*),<span style="background: $colors[$i]; color:black;">$1</span>,gsi; |
121 |
} |
} |
122 |
$i++; |
$i++; |
123 |
$i = 0 if ($i > $#colors); |
$i = 0 if ($i > $#colors); |