Perl读取文本文件输出顺序混乱问题求助

我希望按文件行顺序（从第一行开始依次读取）提取输入文件中的水果及其对应信息，但下方的Perl脚本每次运行都会随机输出水果和信息，并非按读取顺序输出。

输入文件内容：

apple
    text1
    text2
grape
    text3
    text4
jackfruit
    text5

用于提取的Perl代码：

use strict;
use warnings;

my %hash;

open FILE, "config.txt" or die $!;
my $key;
while (my $line = <FILE>) {
     chomp($line);
     if ($line !~ /^\s/) {
        $key = $line;
        #$hash{$key} = [];
     } else {
        $line =~ s/\s//g;
        push (@{ $hash{$key} }, $line);
     }

 }
close FILE;

my %final;
foreach my $fruit (keys %hash){
   foreach my $info (values @{$hash{$fruit}}){

    print "Fruit: $fruit\n";
    print "Info for $fruit = $info\n";


}
}

问题根源是Perl的普通哈希（%hash）是无序的，keys %hash返回的键顺序是随机的（不同Perl版本或运行环境可能有差异），所以遍历哈希键的时候会打乱原文件的顺序。以下是几种可行的解决方法：

方法1：用数组记录水果的出现顺序 #

读取文件时，额外用一个数组保存水果首次出现的顺序，后续遍历这个数组而非哈希的keys，就能保证输出顺序和文件一致。

修改后的代码：

use strict;
use warnings;

my %hash;
my @fruits_order; # 记录水果的出现顺序

open FILE, "config.txt" or die $!;
my $key;
while (my $line = <FILE>) {
     chomp($line);
     if ($line !~ /^\s/) {
        $key = $line;
        # 仅在首次出现时加入顺序数组
        push @fruits_order, $key unless exists $hash{$key};
        $hash{$key} = [] unless exists $hash{$key}; # 确保数组存在
     } else {
        $line =~ s/\s//g;
        push (@{ $hash{$key} }, $line);
     }
 }
close FILE;

# 按顺序数组遍历水果
foreach my $fruit (@fruits_order){
   foreach my $info (@{$hash{$fruit}}){ # 用@而非values避免乱序
    print "Fruit: $fruit\n";
    print "Info for $fruit = $info\n";
   }
}

方法2：直接在读取文件时输出（最简洁） #

如果不需要后续复用这些数据，完全可以在读取文件的过程中直接输出，跳过哈希存储的步骤，天然保证顺序：

use strict;
use warnings;

open FILE, "config.txt" or die $!;
my $current_fruit;
while (my $line = <FILE>) {
     chomp($line);
     if ($line !~ /^\s/) {
        $current_fruit = $line;
     } else {
        $line =~ s/\s//g;
        print "Fruit: $current_fruit\n";
        print "Info for $current_fruit = $line\n";
     }
 }
close FILE;

方法3：使用有序哈希模块（Perl 5.10+） #

如果必须用哈希存储且要保持顺序，可以用Tie::IxHash模块，它能让哈希按照键的插入顺序保存：

use strict;
use warnings;
use Tie::IxHash;

tie my %hash, 'Tie::IxHash'; # 绑定成有序哈希

open FILE, "config.txt" or die $!;
my $key;
while (my $line = <FILE>) {
     chomp($line);
     if ($line !~ /^\s/) {
        $key = $line;
        $hash{$key} = [] unless exists $hash{$key};
     } else {
        $line =~ s/\s//g;
        push (@{ $hash{$key} }, $line);
     }
 }
close FILE;

# 此时keys %hash会按插入顺序返回
foreach my $fruit (keys %hash){
   foreach my $info (@{$hash{$fruit}}){
    print "Fruit: $fruit\n";
    print "Info for $fruit = $info\n";
   }
}

注意：方法3需要确保系统中安装了Tie::IxHash模块，若未安装可通过CPAN安装。

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