Linux磁盘空间按Use%降序排序异常：Perl代码问题排查

核心问题：字符串与数值排序的混淆 #

df -h输出的Use%是带百分号的字符串（比如75%、8%），如果直接对这个字符串排序，Perl会按ASCII字符顺序处理，导致9%排在80%前面（因为字符'9'的ASCII值大于'8'），这是最常见的错误根源。

正确的排序逻辑实现步骤 #

假设你的数据结构是数组，每个元素是包含服务器名、Use%等信息的哈希或字符串，以下是正确的处理方式：

1. 提取纯数值使用率 #

从Use%字段中去掉百分号，转换成数值类型：

# 示例：若哈希元素的use_percent字段是"75%"这类字符串
my $numeric_use = $item->{use_percent} =~ s/%//r; # 去除%保留数值字符串
# 或直接转成整数
my $numeric_use = int($item->{use_percent}); # 自动忽略%，转换为整数

2. 按数值降序排序 #

使用Perl的sort函数，基于提取的数值进行排序：

# 示例：@disk_info数组的每个元素是哈希，包含server和use_percent键
my @sorted = sort {
    # 降序：用b的数值减去a的数值
    ( $b->{use_percent} =~ s/%//r ) <=> ( $a->{use_percent} =~ s/%//r )
} @disk_info;

3. 常见错误示例及修正 #

错误写法（字符串排序）：

# 错误：直接比较带%的字符串，导致排序逻辑错误
my @sorted = sort { $b->{use_percent} cmp $a->{use_percent} } @disk_info;

修正：替换为数值比较操作符<=>，并先去除百分号。

错误写法：未处理异常值

如果df输出存在异常值（比如用-代替使用率），需额外处理避免报错：

my @sorted = sort {
    my $a_use = $a->{use_percent} =~ /(\d+)/ ? $1 : 0;
    my $b_use = $b->{use_percent} =~ /(\d+)/ ? $1 : 0;
    $b_use <=> $a_use
} @disk_info;

验证排序结果 #

排序后可循环输出验证：

foreach my $item (@sorted) {
    printf "%-10s %s\n", $item->{server}, $item->{use_percent};
}

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