arrays - Perl：入力データを最初のフィールドでグループ化します

Question

インターフェイス名と宛先を含むデータファイルがあります。すべての宛先をインターフェースでグループ化して、結果を繰り返して保存できるようにします。これが私の出力の例です：

eth0,1.1.1.1
eth0,1.1.1.2
eth1,1.1.1.1
eth1,1.1.1.2

一意のインターフェイス値をハッシュにダンプして、宛先の配列を作成するにはどうすればよいですか？

Answer 1

my %ifs;

while ( my $line = <STDIN> ) {
    chomp $line;
    my ( $iface, $destination ) = split /,/, $line;
    push @{ $ifs{ $iface } }, $destination;
}

動作するはずです。