Perl中替代if-elif的多分支成绩评分简洁实现方案咨询

你用条件运算符的写法没问题，但Perl确实有更易读、易维护的方式，下面几种方案供你参考：

1. 使用given-when结构（Perl 5.10+） #

Perl 5.10引入的switch特性（需启用feature 'switch'）能让多分支逻辑更清晰，和C的switch类似但支持范围匹配：

use feature 'switch';

my $grade;
given ($score) {
    when ($_ < 60)     { $grade = 'F' }
    when ($_ < 68)     { $grade = 'C' }
    when ($_ < 75)     { $grade = 'B' }
    when ($_ < 90)     { $grade = 'B+' }
    when ($_ < 95)     { $grade = 'A' }
    when ($_ <= 100)   { $grade = 'A+' }
    default            { $grade = 'No Grade' }
}

这种写法逻辑一目了然，每个分支独立，后期调整阈值或等级时直接修改对应行即可。

2. 用阈值-等级数组配对 #

把分数阈值和对应等级存成数组，遍历判断，这种方式的优势是维护成本极低——要调整规则只需修改数组内容，不用动判断逻辑：

my @grade_rules = (
    [ 60,  'F'     ],
    [ 68,  'C'     ],
    [ 75,  'B'     ],
    [ 90,  'B+'    ],
    [ 95,  'A'     ],
    [ 101, 'A+'    ], # 用101覆盖<=100的情况
);

my $grade = 'No Grade';
foreach my $rule (@grade_rules) {
    my ($threshold, $level) = @$rule;
    if ($score < $threshold) {
        $grade = $level;
        last;
    }
}

注意这里把最后一个阈值设为101，这样$score <=100的情况会匹配到A+，逻辑和你的原代码一致。如果以后要加新等级（比如85分设为B++），直接在数组里插入一行就行。

3. 封装为子函数 #

如果这个评分逻辑会多处使用，把它封装成子函数是更好的选择，既简化调用，也方便统一维护：

sub get_grade {
    my ($score) = @_;
    return 'No Grade' unless $score >=0 && $score <=100;
    
    given ($score) {
        when ($_ < 60)   { return 'F' }
        when ($_ < 68)   { return 'C' }
        when ($_ < 75)   { return 'B' }
        when ($_ < 90)   { return 'B+' }
        when ($_ < 95)   { return 'A' }
        default          { return 'A+' }
    }
}

# 调用示例
my $grade = get_grade($score);

这里还加了参数合法性检查，避免无效分数的情况，比原代码更健壮。

如果你的Perl版本低于5.10，没法用given-when，可以用数组配对的方案替代，兼容性更好。

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