如何使用Perl范围运算符为HTML表格98-99区间数据添加黄色着色？

嘿，我看到你在给HTML表格的数值设置颜色时遇到了区间判断的坑，咱们来快速搞定它！

问题出在哪？ #

你的黄色区间判断写法完全不对：

my $highlightProjMoves3300yellow = ($variableProjMoves3300 = (98..99)) ? ' STYLE="COLOR:YELLOW"' : '';

这里有两个致命问题：

1. 你用了赋值运算符=而不是比较运算符==，这会把范围迭代器的值赋给变量，根本不是判断；
2. Perl的范围运算符..在标量上下文里是迭代器，不是用来判断数值是否在区间的工具——它第一次返回98，第二次99，第三次就变成undef了，完全达不到你要的“判断是否在98-99之间”的效果。

另外，你同时生成三个STYLE属性加到同一个<td>里，HTML不允许重复属性，浏览器会忽略掉重复的，导致颜色显示混乱。

修正后的代码方案 #

我们应该用一个变量来存储最终的样式，通过顺序判断区间来生成正确的颜色：

Perl部分：

# 初始化样式为空
my $highlightProjMoves3300 = '';

# 优先判断黄色区间（98-99）
if ($variableProjMoves3300 >= 98 && $variableProjMoves3300 <= 99) {
    $highlightProjMoves3300 = ' STYLE="COLOR:YELLOW"';
}
# 剩下的小于100的情况就是<98，设为红色
elsif ($variableProjMoves3300 < 100) {
    $highlightProjMoves3300 = ' STYLE="COLOR:RED"';
}
# 大于100设为绿色
elsif ($variableProjMoves3300 > 100) {
    $highlightProjMoves3300 = ' STYLE="COLOR:GREEN"';
}

# 如果需要处理等于100的情况，可以加个else分支
# else {
#     $highlightProjMoves3300 = ' STYLE="COLOR:BLACK"'; # 或者默认样式
# }

HTML部分：

把原来的三个样式变量换成一个即可：

<td $highlightProjMoves3300>$variableProjMoves3300%</td>

额外提示 #

如果$variableProjMoves3300是从SQL查询来的字符串类型，建议先转成数值再比较，避免字符串比较的意外问题：

my $num = $variableProjMoves3300 + 0; # 转成数值
if ($num >= 98 && $num <= 99) {
    # ...
}

这样就能完美实现你要的颜色规则啦！

内容的提问来源于stack exchange，提问作者MEDR